Hi ANARDIL1986,
The following macros may help you:
Sub HyperlinkToFile()
'NOTE: A warning message is generated concerning viruses. To disable the warning message
'see https://support.microsoft.com/en-us/kb/925757
Const sPathAndFileName = "c:\Windows\system32\notepad.exe"
ActiveWorkbook.FollowHyperlink Address:=sPathAndFileName, NewWindow:=False
End Sub
Sub HyperlinkToSheet()
Const sSheetName = "Sheet2"
ActiveWorkbook.Sheets(sSheetName).Select
End Sub
Sub HyperlinkToSheetAndCell()
Const sSheetName = "Sheet2"
Const sCell = "D15"
ActiveWorkbook.Sheets(sSheetName).Select
ActiveWorkbook.Sheets(sSheetName).Range(sCell).Select
End Sub
Lewis
Bookmarks