John,

Try some code like

Sub AAA()
Dim Dest As Range
Dim WS As Worksheet
Set Dest = Range("A1") 'change as desired
For Each WS In ThisWorkbook.Worksheets
Dest.Value = WS.Name
Set Dest = Dest(2, 1)
Next WS
End Sub


--
Cordially,
Chip Pearson
Microsoft MVP - Excel
Pearson Software Consulting, LLC
www.cpearson.com



"John Scott" wrote in message
...
How do I get a list of WS from a WB?

Jonah