Sheet

[Jim]

How would I wrtie a macro the would creat in a workshhet a list of the
names of all the other worksheets in a workbook

 

[Jim Cone]

Sub CreateSummarySheet()
Dim sht As Object
Dim N As Long
N = 1
For Each sht In Sheets
Cells(N, 1).Value = sht.Name
N = N + 1
Next
End Sub
'--
Or use the free Excel add-in "XL Extras" at...
http://www.realezsites.com/bus/primitivesoftware
No registration required.
--
Jim Cone
San Francisco, USA


<[email protected]>
wrote in message
How would I wrtie a macro the would create in a workshhet a list of the
names of all the other worksheets in a workbook

 

[Don Guillett]

try

Sub listsheets()
For i = 1 To Worksheets.Count
Cells(i, "a") = Sheets(i).Name
Next i
End Sub