How to get list of worksheet names?

I am working with a large Excel file that contains over
100 worksheets. I need a list of all the worksheet
names. Can someone tell me how to get this list, other
than copy each one at a time?

Thanks,
Robert

In article <0a6101c36e29$1702a670$a501280a@phx.gbl>,
"Robert Li" <yinquan_li RemoveThis @yahoo.com> wrote:

 > I am working with a large Excel file that contains over
 > 100 worksheets. I need a list of all the worksheet
 > names. Can someone tell me how to get this list, other
 > than copy each one at a time?

You can do it with a macro:

Public Sub ListSheets()
Dim i As Long
For i = 1 to Worksheets.Count
ActiveSheet.Cells(i, 1).Value = Worksheets(i).Name
Next i
End Sub

This macro will insert a new sheet at the left of your workbook and
list all the sheets in the workbook:

Public Sub ListSheetsToNewSheet()
Const SHTNAME As String = "Index to Sheets"
Dim indexSheet As Worksheet
Dim i As Long
On Error Resume Next
Worksheets(SHTNAME).Delete
On Error GoTo 0
With Worksheets.Add(before:=Worksheets(1))
.Name = SHTNAME
For i = 1 To Worksheets.Count
.Cells(i, 1).Value = Worksheets(i).Name
Next i
End With
End Sub

If you're unfamiliar with macros, take a look at David McRitchie's
Getting started with Macros page - it's Windows oriented, but most
of the information is directly applicable to Macs.

<a style='text-decoration: underline;' href="http://www.mvps.org/dmcritchie/excel/getstarted.htm" target="_blank">http://www.mvps.org/dmcritchie/excel/getstarted.htm</a><!-- ~MESSAGE_AFTER~ -->