Print list of ws names
 

Thanks Chuck
I appreciate your efforts
Joanne
CLR wrote:

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" wrote:

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

Print list of ws names
 

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

Print list of ws names
 

Hi Joanne,

Look at this discussion:

http://groups.google.com/group/micro...58779cf90a9 b

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


"Joanne" wrote in message ...
| 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

Print list of ws names
 

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" wrote:

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