Public Sub Test()
Dim ws As Worksheet
Dim newWs As Worksheet
Dim i As Long

Set newWs = Worksheets.Add
For Each ws In ActiveWorkbook.Worksheets

If ws.Name < newWs.Name Then

i = i + 1
newWs.Cells(i, "A").Value = ws.Name
End If
Next ws
newWs.PrintOut
Application.DisplayAlerts = False
newWs.Delete
Application.DisplayAlerts = True

End Sub

--
---
HTH

Bob


(there's no email, no snail mail, but somewhere should be gmail in my addy)



"Muhammad Rizwan Khan - XL Sheets Name" <Muhammad Rizwan Khan - XL Sheets
wrote in message
...
I have many sheets in my EXCEL file (Excel 2000).
How can I print all the sheets name only, not the contents of sheet ?
is there any function or trick ?