Can I print the tab names in an Excel spreadsheet?

[CLAMJ]

--
Char James

[Bob Phillips]

Sub PrintSheets()
Dim sh As Object
Dim i As Long

For Each sh In ActiveWorkbook.Sheets
i = i + 1
Cells(i, "A").Value = sh.Name
Next sh

End Sub


--
HTH

Bob Phillips

(remove nothere from email address if mailing direct)

"CLAMJ" <[email protected]> wrote in message
news:[email protected]...
>
> --
> Char James