Print list of ws names

  • Thread starter Thread starter Joanne
  • Start date Start date
J

Joanne

Thanks Chuck
I appreciate your efforts
Joanne said:
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
Click to expand...
 
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
 
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
 
Back
Top