Worksheet list

A

Angelina

Hi:

I have 63 worksheets in one document. How can I prepare a
list of their titles?

Many thanks,

Angel
 
B

Bob Umlas

Sub PrepareList()
Set MyList = Worksheets.Add
for i=1 to Sheets.Count
MyList.Cells(i,1).Value = Sheets(i).Name
Next
End Sub

Bob Umlas
Excel MVP
 
G

Guest

THANK YOU SO MUCH!
IT WORKED!
-----Original Message-----
Sub PrepareList()
Set MyList = Worksheets.Add
for i=1 to Sheets.Count
MyList.Cells(i,1).Value = Sheets(i).Name
Next
End Sub

Bob Umlas
Excel MVP




.
Click to expand...
 
R

RT

Hi

Works fine for me too
Is it easy to have it call the sheet created "index" rather than having to
rename it manually?

I added this macro to some of my larger files and now I am adding a
description next to each name
Which means using "Hyperlinks" I can used that sheet as a menu

Thanks a lot for this very useful tip

Rex

PS
I have formated some of the cells as dddd" "dd/mm/yy" " h:mm

Is there anyway I can force the first lettter to capital

Thank you

Rex
 
D

Dave Peterson

When I used your custom format:
dddd" "dd/mm/yy" " h:mm
or just:
dddd dd/mm/yy h:mm

The first letter of the name of the day was upper case:
Monday 09/08/04 16:53
 
Top