How about having a list of sheets each being hyperlinked to their respective sheet name in the workbook? Well, this can be done with the following code -
Sub CreateHyperlinkedSheetList()
Dim ws As Worksheet
Application.ScreenUpdating = False
ActiveSheet.Range("A:A").Clear 'clear existing list
For Each ws In ActiveWorkbook.Worksheets
With ActiveSheet.Range("A" & Rows.Count).End(xlUp)
.Offset(1).Value = ws.Name
ActiveSheet.Hyperlinks.Add Anchor:=.Offset(1), Address:="", SubAddress:= _
"'" & ws.Name & "'!A1", TextToDisplay:=ws.Name
End With
Next ws
Application.ScreenUpdating = True
End Sub
Copy the above code into a standard module and you can assign it to a button, to trigger it whenever you want.
The applications/code on this site are distributed as is and without warranties or liability. In no event shall the owner of the copyrights, or the authors of the applications/code be liable for any loss of profit, any problems or any damage resulting from the use or evaluation of the applications/code.
