Sheets names

P

Petros

Hello again. Here is a different one.
How can I produce a list (in one sheet) of all the sheets names in a file?
Is there a function?
Thanks
Petros
 
G

Gary''s Student

First enter this UDF:

Function sheetname(i As Integer) As String
sheetname = Sheets(i).Name
End Function

then in the worksheet enter:

=sheetname(ROWS($A$1:$A1)) and copy down.
 
B

Boss

This macro should solve your purpose.

Sub sheetnames()

RowCount = 1
For Each sht In Sheets
Range("A" & RowCount) = sht.Name
RowCount = RowCount + 1
Next sht

End Sub


Boss
 
J

Jim May

FWIW,,,
This code is producing the Code (Hidden) Name of the Sheet, Not the
Sheetname the user has access to by renaming with the short-cut menu.
Jim
 
J

Jim May

Good Catch Dave;

Not sure what I did -- the first time -- but,,,
I can't redo.

Jim
 
Top