Print Worksheets

[Pam]

Is it possible to print a list of sheet tabs in a workbook?

Thank you

 

[Paul Corrado]

Pam,

Insert this code into a VBA project module.

Alt+F11 to access the VBA Editor, select the VBPProject for the workbook and
Insert|Module

Then go back to your worksheet and use Tools|Macros and select and run the
macro to create a list of the sheetnames in the active workbook. Then just
print the range.


Sub ListPageName()
Dim SheetName As String
Dim SheetCount As Integer
Dim i As Integer
SheetCount = ActiveWorkbook.Sheets.Count
For i = 1 To SheetCount
SheetName = ActiveWorkbook.Sheets(i).Name
ActiveCell.Offset(i - 1, 0).FormulaR1C1 = SheetName
Next i
End Sub