Re: worksheet listings
Why not just use the built-in navigation available by right clicking on the arrows in the bottom left?
Re: worksheet listings
Norie, that method is on the page I linked to. About the best way IMO.
Re: worksheet listings
Quote from Dave HawleySee Also: Ways to Create Sheet Indexes
This is just what I am looking for.
Just one question
I have two hidden sheets that I do not want in the index How would I stop these from being shown?
Windy
Re: worksheet listings
Try
Private Sub Worksheet_Activate()
Dim wSheet As Worksheet
Dim l As Long
l = 1
With Me
.Columns(1).ClearContents
.Cells(1, 1) = "INDEX"
.Cells(1, 1).Name = "Index"
End With
For Each wSheet In Worksheets
If wSheet.Name <> Me.Name And wSheet.Visible = True Then
l = l + 1
With wSheet
.Range("A1").Name = "Start" & wSheet.Index
.Hyperlinks.Add Anchor:=.Range("A1"), Address:="", _
SubAddress:="Index", TextToDisplay:="Back to Index"
End With
Me.Hyperlinks.Add Anchor:=Me.Cells(l, 1), Address:="", _
SubAddress:="Start" & wSheet.Index, TextToDisplay:=wSheet.Name
End If
Next wSheet
End SubRe: worksheet listings
Thanks for the quick response Dave it works a treat.
Windy
Don’t have an account yet? Register yourself now and be a part of our community!