I'd like to get a list of all worksheets in a workbook so I can then
construct links to the same cell in each sheet.

hi bob

Try this macro to create the links for you
http://www.rondebruin.nl/summary.htm


--

Regards Ron de Bruin
http://www.rondebruin.nl/tips.htm


" m wrote in message
...
I'd like to get a list of all worksheets in a workbook so I can then
construct links to the same cell in each sheet.

Private Sub ListSheets()
'list of sheet names starting at A1
Dim rng As Range
Dim i As Integer
Worksheets.Add(After:=Worksheets(Worksheets.Count) ).Name = "List"
Set rng = Range("A1")
For Each Sheet In ActiveWorkbook.Sheets
rng.Offset(i, 0).Value = Sheet.Name
i = i + 1
Next Sheet
End Sub


Gord Dibben MS Excel MVP

On Wed, 2 Apr 2008 12:43:01 -0700,
m wrote:

I'd like to get a list of all worksheets in a workbook so I can then
construct links to the same cell in each sheet.