View Single Post
  #2   Report Post  
Posted to microsoft.public.excel.misc
Gary''s Student Gary''s Student is offline
external usenet poster
 
Posts: 11,058
Default Summary of Worksheet names

If you run this small macro, it will produce a list of sheets that are
"clickable":

Sub EasyToc()
' gsnuxx
Dim ws As Worksheet
Dim n As String
Dim p1 As String, dq As String, sq As String
dq = Chr(34)
sq = Chr(39)
p1 = "=HYPERLINK(" & dq & "#'"
p2 = "'!A1" & dq & "," & dq
k = 1
For Each ws In Worksheets
n = ws.Name
Cells(k, 1).Formula = p1 & n & p2 & n & dq & ")"
k = k + 1
Next
End Sub

--
Gary''s Student - gsnu200816


"Niamh" wrote:

I am trying to create a list of worksheet names on my first worksheet,
similar to a table of contents. Is there a way of linking to the worksheet
names, so this table gets updated automatically?
Thanks,
Niamh