VBA/Excel/Access/Word/Excel/Hyperlinks
Creates a hyperlink to each worksheet in the workbook excluding the worksheet containing rgLinks.
<source lang="vb">
Sub CreateLinks()
Dim rgLinks As range Set rgLinks = range("C1") Dim ws As Worksheet For Each ws In ThisWorkbook.Worksheets If ws.name <> rgLinks.Parent.name Then rgLinks.Hyperlinks.add rgLinks, ThisWorkbook.name, _ """ & ws.name & ""!A1", ws.name, ws.name Set rgLinks = rgLinks.Offset(1, 0) End If Next Set ws = Nothing
End Sub
</source>
Using the Follow method of the Hyperlink object(user selecting the hyperlink in the Excel application)
<source lang="vb">
Sub followLink()
Worksheets("Sheet3").Hyperlinks(1).Follow
End Sub
</source>