Hyperlink Creation in every sheet -Simplify recorded Macro

[seenai]

Hi,

I would like to create a Hyperlink to summary sheet in every page of Excel.

Request simplified macro for the below :

Sub Hyperlink()
'


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

ActiveSheet.Next.Select

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

ActiveSheet.Next.Select

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

ActiveSheet.Next.Select

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

ActiveSheet.Next.Select

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

ActiveSheet.Next.Select

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

ActiveSheet.Next.Select

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

ActiveSheet.Next.Select

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

ActiveSheet.Next.Select

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

ActiveSheet.Next.Select

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

ActiveSheet.Next.Select

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

ActiveSheet.Next.Select

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

ActiveSheet.Next.Select

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

ActiveSheet.Next.Select

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

ActiveSheet.Next.Select

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

ActiveSheet.Next.Select

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

ActiveSheet.Next.Select

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

ActiveSheet.Next.Select

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

ActiveSheet.Next.Select

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

ActiveSheet.Next.Select

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

ActiveSheet.Next.Select

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

ActiveSheet.Next.Select

End Sub

 

[FormR]

Hi, you could try like this:

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

 

[seenai]

Great Help.

Thank You,

Hi, you could try like this:

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