Print list of ws names

[Joanne]

Thanks Chuck
I appreciate your efforts

Don't remember who in the group gave this to me, but it works good.......

Sub ListSheets()
'Lists all SheetNames in Workbook on new sheet called "SheetNames"
On Error Resume Next
Sheets.Add.Name = ("SheetNames")
For i = 1 To Worksheets.Count
Cells(i, "a") = Sheets(i).Name
Next i
End Sub

Vaya con Dios,
Chuck, CABGx3

 

[Joanne]

Is there a way in Excel 2003 to print out the names of all the
worksheets in my workbook?
Thank your for your help
Joanne

 

[Niek Otten]

Hi Joanne,

Look at this discussion:

http://groups.google.com/group/micr...779cf90a9b?lnk=st&q=&rnum=52#a8b458779cf90a9b

Note that the link may be split over more lines; paste them in one line in your browser

--
Kind regards,

Niek Otten
Microsoft MVP - Excel


| Is there a way in Excel 2003 to print out the names of all the
| worksheets in my workbook?
| Thank your for your help
| Joanne

 

[Guest]

Don't remember who in the group gave this to me, but it works good.......

Sub ListSheets()
'Lists all SheetNames in Workbook on new sheet called "SheetNames"
On Error Resume Next
Sheets.Add.Name = ("SheetNames")
For i = 1 To Worksheets.Count
Cells(i, "a") = Sheets(i).Name
Next i
End Sub

Vaya con Dios,
Chuck, CABGx3