Macro - Hyperlink Cell A1 in all but one worksheets to Cell

[Cosmos75]

How do I Hyperlink the cell A1 in all worksheets but one (actually need to exclude more than one, although code for excluding one will probably be easy enough to change) to cell A1 in excluded worksheet (named SUMMARY?

I want the included worksheeets to have the cell A1 to hyperlink back to cell A1 in the worksheet called SUMMARY.

Is there a macro that I can create to help choose which worksheet to view? Maybe a combo box on each page? BUT I need those combo boxes to appear automatically on each worksheet and be popoulated automatically since this workbook is update continually.

Any ideas?

 

[Damon Ostrander]

Hi Cosmos75,

The following macro will hyperlink cell A1 on all worksheets to A1 on the worksheet named "Summary".

Sub HyperlinkSheets()
'Hyperlinks cell A1 on all worksheets to A1 on worksheet Summary
'(except for Summary itself, of course)
Dim Sh As Object
For Each Sh In Sheets
If Sh.Name <> "Summary" Then
Sh.Hyperlinks.Add Anchor:=Sh.[a1], Address:="", _
SubAddress:="Summary!A1", _
TextToDisplay:="Go to Summary"
End If
Next Sh
End Sub

 

[Cosmos75]

Damon Ostrander,

Thanks, works great! Saved me a lot of time from having to do that manually!

Know if the second part of my post is possible?