How do I print out a list of the tabs in an Excel workbook?

B

Britomart

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
 
O

Otto Moehrbach

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
 
D

Dave Peterson

How about just add the worksheet names to a worksheet and then print that?

Option Explicit
Sub testme()

Dim rptWks As Worksheet
Dim wks As Worksheet
Dim ActWkbk As Workbook
Dim oRow As Long

Set ActWkbk = ActiveWorkbook

Set rptWks = Workbooks.Add(1).Worksheets(1)

oRow = 0
For Each wks In ActWkbk.Worksheets
oRow = oRow + 1
rptWks.Cells(oRow, "A").Value = "'" & wks.Name
Next wks

End Sub


If you're new to macros, you may want to read David McRitchie's intro at:
http://www.mvps.org/dmcritchie/excel/getstarted.htm
 
Top