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
|