hi
this will create a list of worksheet names on an activesheet.
Sub testI()
Dim WS As Worksheet
Dim r As Range
Dim rd As Range
Set r = Range("A2")
For Each WS In Worksheets
Set rd = r.Offset(1, 0)
r.Value = WS.Name
Set r = rd
Next
End Sub

regards
FSt1

"Mich" wrote:

I am trying to summarize my worksheets (100) into one summary page.

I need a list of tab names (to start).

The list may change.

Any advice?