List of workbook tabs

  • Thread starter Thread starter Donna
  • Start date Start date
D

Donna

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?
 
Donna,

Right click any sheet tab, view code and paste this in and run it for a list
of sheet names in Column A which you can then print

Sub SheetNames()
For i = 1 To Sheets.Count
Cells(i, 1) = Sheets(i).Name
Next i
End Sub

Mike
 
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
 
Back
Top