Trying to list tab/worksheet names in a summary worksheet

  • Thread starter Thread starter Mich
  • Start date Start date
M

Mich

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?
 
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
 
Back
Top