Macro to insert a hyperlink in several worksheets

[Cesylia]

I am creating several books that have several worksheets and each sheet needs a link to a summary sheet. I am lost trying to create a macro that will do this. If in addition, I could run a macro that will insert a hyperlink from the summary sheet back to each worksheet... that would be absolutely awesome.

Hope someone can help me out there. I am not an expert with macros.

Thank you!

 

[vaskov17]

Sub AddLinks()
    Dim ws As Worksheet
    
    'go through each sheet in this workbook
    For Each ws In ThisWorkbook.Worksheets
        'if the sheet is not named summary then add hyperlink
        If ws.Name <> "Summary" Then
            'anchor is the cell where the hyperlink will be placed
            'subddress is the sheet and cell where the hyperlink points to
            ws.Hyperlinks.Add anchor:=ws.Range("A1"), Address:="", SubAddress:="Summary!A1", TextToDisplay:="Summary Worksheet"
        End If
    Next
End Sub

 

[Cesylia]

Hi there, thank you very much for your response. I tried running the module and it works; except that when you click on the hyperlink it doesn't take back to the 'Account Summary' sheet. I tried changing the name, but still it won't jump back to the first page (summary). Any additional tips please?

Sub AddLinks()
    Dim ws As Worksheet
    
    'go through each sheet in this workbook
    For Each ws In ThisWorkbook.Worksheets
        'if the sheet is not named summary then add hyperlink
        If ws.Name <> "Summary" Then
            'anchor is the cell where the hyperlink will be placed
            'subddress is the sheet and cell where the hyperlink points to
            ws.Hyperlinks.Add anchor:=ws.Range("A1"), Address:="", SubAddress:="Summary!A1", TextToDisplay:="Summary Worksheet"
        End If
    Next
End Sub

 

[vaskov17]

You have to change the name in this line:

If ws.Name<>"Summary" then

also in this line:

ws.Hyperlinks.Add Anchor:=ws.Range("A1"), Address:="", SubAddress:="Summary!A1", TextToDisplay:="Summary Worksheet"

in this line the SubAddress is basically "NameOfSheet!CellOnThatSheet" so change the name of the sheet here as well and if needed the cell