Try a macro like this:

Sub PrintWSNames()
Dim sh As Worksheet
Dim i As Long

With ActiveWorkbook
.Worksheets(1).Select
Set sh = .Worksheets.Add
End With

With sh
For i = 2 To ActiveWorkbook.Worksheets.Count
.Cells(i, "A").Value = Worksheets(i).Name
Next i
.Cells(1, "A").Value = "Sheet " & _
"Names (excl. this one)"

[A:A].EntireColumn.AutoFit

.PrintOut Copies:=1, Collate:=True
End With

End Sub

---
HTH
Jason
Atlanta, GA

-----Original Message-----
I can view a list of the worksheet tabs using the
properties command and
viewing the contents tab, however sometimes I need to
print a list of the tab
names. To do this I use the Print Screen. This is slow
and must be done
several times to include all the tab names. Is there a
way of printing this
list any faster?
.