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