Sheet

J

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
 
J

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
 
D

Don Guillett

try

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