Will add hyperlink in a cell to a sheet in same workbook
Not Hyperlink function, but the actual hyperlink
CellSheetName sheet name where we put the hyperlink
CellAdd cell address where hyperlink will be put
DestinationSheetName hyperlink to take to that sheet
Sub CellHyperlink_ToSheet(CellAdd, CellSheetName, DestinationSheetName)
' Will add hyperlink in a cell to a sheet in same workbook
' Not Hyperlink function, but the actual hyperlink
' Sheet1.Hyperlinks.Add Sheet1.Range("D5").Offset(I, 0), "", "'" & SheN & "'!A1", , SheN
' CellSheetName sheet name where we put the hyperlink
' CellAdd cell address where hyperlink will be put
' DestinationSheetName hyperlink to take to that sheet
Worksheets(CellSheetName).Hyperlinks Add worksheets(CellSheetName).Range(CellAdd), _
"", "'" & DestinationSheetName & "'!A1", , DestinationSheetName
End Sub
' Will add hyperlink in a cell to a sheet in same workbook
' Not Hyperlink function, but the actual hyperlink
' Sheet1.Hyperlinks.Add Sheet1.Range("D5").Offset(I, 0), "", "'" & SheN & "'!A1", , SheN
' CellSheetName sheet name where we put the hyperlink
' CellAdd cell address where hyperlink will be put
' DestinationSheetName hyperlink to take to that sheet
Worksheets(CellSheetName).Hyperlinks Add worksheets(CellSheetName).Range(CellAdd), _
"", "'" & DestinationSheetName & "'!A1", , DestinationSheetName
End Sub
CellAdd, CellSheetName, DestinationSheetName
Views 3,131
Downloads 1,270
CodeID
DB ID
ANmarAmdeen
602
Revisions
v1.0
Sunday
June
24
2018