Hyperlink back to Summary Page (Summary Sheet is Sheet 3)

[ronanbaker1]

Hi Guys,

I have a Summary Sheet or a Table of Contents as you will Macro that Hyperlinks all my data on that sheet to sheets 4,5,6,7,8 etc could be upto 50 with all different names. Now I want to hyperlink them back to the Summary sheet. I have nearly got what I want the only problem I have is On the last sheet I get a De-bug. As my macro is looking for another sheet. Heres what I coded so far.

Sheets("Summary").Select
For Each ws In ActiveWorkbook.Sheets

ActiveSheet.Next.Select
Range("D1").Select
ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:="", SubAddress:= _
"Summary!A1", TextToDisplay:="Summary"

Next

 

[FormR]

Give this a try:

Sub Test()
Dim ws As Worksheet
For Each ws In ThisWorkbook.Sheets
    If ws.Name <> "Summary" Then
        ws.Hyperlinks.Add Anchor:=ws.Range("D1"), Address:="", SubAddress:= _
        "Summary!A1", TextToDisplay:="Summary"
    End If
Next ws
End Sub