List of workbook tabs

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?
 
M

Mike H

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
 
S

Shane Devenshire

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
 

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Top