Hi,

Might use something like this

Sub GetNames()
Dim sh As Worksheet
Dim I As Integer
I = 1
For Each sh In Worksheets
Cells(I, 0) = sh.Name
I = I + 1
Next sh
End Sub

--
If this helps, please click the Yes button

Cheers,
Shane Devenshire


"Donna" wrote:

I have a workbook with 100 sheets, named by employee. I want to get a
printout of the tab names so that I don't have to go through the entire list
to see if an employee already has a sheet. Is there a way to do this?