CellHyperlink_ToSheet

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

CodeFunctionName
What is this?

Public

Tested

Original Work
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

CellAdd, CellSheetName, DestinationSheetName

Views 3,131

Downloads 1,270

CodeID
DB ID

ANmarAmdeen
602
Attachments
Revisions

v1.0

Sunday
June
24
2018