Worksheet list

[Angelina]

Hi:

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

Many thanks,

Angel

 

[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

 

[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




.

 

[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

 

[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