Home |
Search |
Today's Posts |
#1
|
|||
|
|||
How do I print out a list of the tabs in an Excel workbook?
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 |
#2
|
|||
|
|||
How do I print out a list of the tabs in an Excel workbook?
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 |
#3
|
|||
|
|||
How do I print out a list of the tabs in an Excel workbook?
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 Britomart wrote: 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 -- Dave Peterson |
#4
Posted to microsoft.public.excel.misc
|
|||
|
|||
How do I print out a list of the tabs in an Excel workbook?
Hi Otto
Thanks a lot - it was exactly what I was looking for. "Otto Moehrbach" wrote: 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 |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
In Excel, how can I print a long list on 1 page in multiple colum. | Excel Discussion (Misc queries) | |||
How do I print all sheets of an Excel workbook from explorer? | Excel Discussion (Misc queries) | |||
How do I print grayscale font in Excel 2003? | Excel Discussion (Misc queries) | |||
I can I set up Excel to print all sheets of a workbook as a defau. | Excel Discussion (Misc queries) | |||
Macro in Excel 2002 to save a workbook to a FTP location | Excel Discussion (Misc queries) |