This macro will list all the sheet names in order in Column A of the active
sheet, starting in A2. Column A must be empty for this to work. HTH Otto
Sub ListShtNames()
Dim ws as Worksheet
For Each ws In ActiveWorkbook.Worksheets
Range("A" & Rows.Count).End(xlUp).Offset(1).Value = ws.Name
Next ws
End Sub
"Britomart" wrote in message
...
I have a large workbook that tracks computers for a company I work for, one
tab per computer. I would like to print out jsut a list of the tab names
as
sort of an index file and check list for a physical inventory. Is this
possible?

thanks