Printing XL Sheets name

  • Thread starter Thread starter Muhammad Rizwan Khan - XL Sheets Name
  • Start date Start date
M

Muhammad Rizwan Khan - XL Sheets Name

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 ?
 
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
(e-mail address removed)> wrote in message
news:[email protected]...
 
Back
Top