Create hyperlinks to each sheet using VBA

[Steve Mackay]

I have a simple macro for listing all the worksheets in a workbook,
essentially creating a table of contents for my file:

Sub ListSheets()
For iSheets = 1 To Sheets.Count
ActiveCell.Value = Sheets(iSheets).Name
ActiveCell.Offset(1, 0).Activate
Next iSheets
End Sub

What I would like to do is make each of those cells a hyperlink to the
corresponding worksheet, to cell A1. Any ideas?

Thanks,
Steve Mackay

 

[Tom Ogilvy]

See this code at David McRitchie's site:

http://www.mvps.org/dmcritchie/excel/buildtoc.htm

 

[Steve Mackay]

Thanks, Tom.

There is a lot of good information here. I am a rookie to VBA, so most
of it is over my head, but I cut and paste the macro into a module and
it worked as i wanted it to.


Thanks for your help.
Steve