Option Explicit
Sub IndexIt()
Dim Ws As Worksheet, WsInd As Worksheet, lStartRow%, lStartCol, sBackRange As String
sBackRange = "A1"
lStartRow = Selection.Row
lStartCol = Selection.Column
Set WsInd = ActiveSheet
For Each Ws In Worksheets
If Ws.Name <> WsInd.Name Then
WsInd.Hyperlinks.Add WsInd.Cells(lStartRow, lStartCol), "", "'" & Ws.Name & "'!A1"
WsInd.Cells(lStartRow, lStartCol).Value = Ws.Name
lStartRow = lStartRow + 1
Ws.Hyperlinks.Add Ws.Range(sBackRange), "", "'" & WsInd.Name & "'" & "!A1"
Ws.Range(sBackRange).Value = "Back to Index"
End If
Next Ws
WsInd.Activate
End Sub
|