Jump to specific worksheet in workbook

[Allison]

I have a workbook with more than 70 pages. I have a menu
page that takes me to a specific worksheet (I used this
feature from ASAP) but I need to know how to put a button
or hyperlink on all of the other pages so when the user
clicks, it takes them back to the menu page when they are
done with the current worksheet.

Thanks

Allison

 

[Tom Ogilvy]

Assume you menu sheet is named TOC

Sub AddHyperlinks()
For Each sh In ActiveWorkbook.Worksheets
If LCase(sh.Name) <> "toc" Then
ActiveSheet.Hyperlinks.Add _
Anchor:=sh.Range("A1"), _
Address:="", _
SubAddress:="TOC!A1"
End If
Next
End Sub

 

[Allison]

Tom,

Thanks. I will give this a try.

Allison

-----Original Message-----
Assume you menu sheet is named TOC

Sub AddHyperlinks()
For Each sh In ActiveWorkbook.Worksheets
If LCase(sh.Name) <> "toc" Then
ActiveSheet.Hyperlinks.Add _
Anchor:=sh.Range("A1"), _
Address:="", _
SubAddress:="TOC!A1"
End If
Next
End Sub

--
Regards,
Tom Ogilvy




.

 

[Frank Kabel]

Hi Allison
in addition to Tom's answer you may have a look at the following site
(for automatically creating a table of contents with the corresponding
code):
http://www.mvps.org/dmcritchie/excel/buildtoc.htm