cro t Hyprlink on each sheet

[howard]

I have written a macro to hyperlink to sheet summary on S2 on each sheet from sheet3 onwards, button hyperlink on the active sheet, but in a different cell


Kindly amend my code to only hyperlink sheet "summary" on cell S2 from sheet 3 onwards

 Sub Hyperlink_Summary()



 For I = 3 To Worksheets.Count
        With Worksheets(I)
     
 .Range("s2").Hyperlinks.Add Anchor:=Selection, Address:="", SubAddress:= _
        "Summary!A1", TextToDisplay:="Summary"
        End With
         
          
        Next I
        
        End Sub

 

[Kenneth Hobson]

If I understand, you want to anchor to sheet index 3 and anchor to S2 on those to Worksheet named Summary cell A1.

Sub Hyperlink_Summary()
  Dim i As Integer
  If Worksheets.Count < 3 Then Exit Sub
  For i = 3 To Worksheets.Count
    With Worksheets(i)
      .Hyperlinks.Add Anchor:=.Range("S2"), _
        Address:="", SubAddress:= _
        "Summary!A1", TextToDisplay:="Summary"
    End With
  Next i
End Sub

 

[howard]

Thanks for the help, Kenneth. Code works perfectly