Hi Joanne,

Look at this discussion:

http://groups.google.com/group/microsoft.public.excel.worksheet.functions/browse
_frm/thread/32ce300545721b2e/a8b458779cf90a9b?lnk=st&q=&rnum=52#a8b458779cf90a9b

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

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