link to the 1st sheet to be applied on multiple worksheets.

[xenios]

Have to put a link "back to beginning" in 300 worksheets at the top, 1 cell location. So far it woks only with text, but not with links.

Then here is more difficult the same thing "back to beginning" at the bottom, but the length of the sheets varies.
+Have to put the link "to the top" at the end of the info on the sheet, that leads to the top of the same page.

Thank you.

 

[alansidman]

Here is VBA code to "Back to Beginning in all worksheets in cell B1 assuming Beginning is named Sheet1 and cell A1

Option Explicit

Sub Hyper()
    Dim ws As Worksheet

    For Each ws In ActiveWorkbook.Worksheets
        If ws.Name <> "Sheet1" Then
            ws.Hyperlinks.Add _
              Anchor:=ws.Range("B1"), _
              Address:="", _
              SubAddress:="Sheet1!A1", _
              TextToDisplay:="Back To Beginning"
        End If
    Next ws
    MsgBox ("Completed")
End Sub

Placing same in Last cell in Column A of worksheet

Option Explicit

Sub Hyper()
    Dim ws As Worksheet
    Dim lr As Long
    

    For Each ws In ActiveWorkbook.Worksheets
        If ws.Name <> "Sheet1" Then
        lr = ws.Range("A" & Rows.Count).End(xlUp).Row
            ws.Hyperlinks.Add _
              Anchor:=ws.Range("A" & lr), _
              Address:="", _
              SubAddress:="Sheet1!A1", _
              TextToDisplay:="return to sheet1"
        End If
    Next ws
    MsgBox ("Completed")
End Sub

 

[alansidman]

Error in my second code. Missed a plus one. See below for updated Code.

Option Explicit

Sub Hyper()
    Dim ws As Worksheet
    Dim lr As Long
    

    For Each ws In ActiveWorkbook.Worksheets
        If ws.Name <> "Sheet1" Then
        lr = ws.Range("A" & Rows.Count).End(xlUp).Row
            ws.Hyperlinks.Add _
              Anchor:=ws.Range("A" & lr + 1), _
              Address:="", _
              SubAddress:="Sheet1!A1", _
              TextToDisplay:="Back To Beginning"
        End If
    Next ws
    MsgBox ("Completed")
End Sub

 

[xenios]

Error in my second code. Missed a plus one. See below for updated Code.

Option Explicit

Sub Hyper()
    Dim ws As Worksheet
    Dim lr As Long
   

    For Each ws In ActiveWorkbook.Worksheets
        If ws.Name <> "Sheet1" Then
        lr = ws.Range("A" & Rows.Count).End(xlUp).Row
            ws.Hyperlinks.Add _
              Anchor:=ws.Range("A" & lr + 1), _
              Address:="", _
              SubAddress:="Sheet1!A1", _
              TextToDisplay:="Back To Beginning"
        End If
    Next ws
    MsgBox ("Completed")
End Sub

Waw, great!!! Thank you.
May be know how to do the same with "to top", when it links to the top of the page?

 

[alansidman]

I don't understand what you want. Maybe you can explain it a little more clearly. Are you looking for a hyperlink that when clicked at the bottom of a sheet moves the cursor to Cell A1? Please clarify succinctly

 

[xenios]

I don't understand what you want. Maybe you can explain it a little more clearly. Are you looking for a hyperlink that when clicked at the bottom of a sheet moves the cursor to Cell A1? Please clarify succinctly

Yes, exactly. Normally we have located next to the back to beginning which is on the bottom.

 

[alansidman]

Here is the code to add the hyperlink at the cell below the last cell in each sheet.

Option Explicit


Sub HyperUp()
    Dim ws As Worksheet
    Dim lr As Long
    

    For Each ws In ActiveWorkbook.Worksheets
        If ws.Name <> "Sheet1" Then
        lr = ws.Range("A" & Rows.Count).End(xlUp).Row
            ws.Hyperlinks.Add _
              Anchor:=ws.Range("A" & lr + 1), _
              Address:="", _
              SubAddress:="'" & ws.Name & "'!A1", _
              TextToDisplay:="To The Top"
        End If
    Next ws
    MsgBox ("Completed")
End Sub

 

[xenios]

G

Here is the code to add the hyperlink at the cell below the last cell in each sheet.

Option Explicit


Sub HyperUp()
    Dim ws As Worksheet
    Dim lr As Long
   

    For Each ws In ActiveWorkbook.Worksheets
        If ws.Name <> "Sheet1" Then
        lr = ws.Range("A" & Rows.Count).End(xlUp).Row
            ws.Hyperlinks.Add _
              Anchor:=ws.Range("A" & lr + 1), _
              Address:="", _
              SubAddress:="'" & ws.Name & "'!A1", _
              TextToDisplay:="To The Top"
        End If
    Next ws
    MsgBox ("Completed")
End Sub

Great!! You are the best!!!

 

[alansidman]

Thanks for the feedback.

 

[xenios]

Here is VBA code to "Back to Beginning in all worksheets in cell B1 assuming Beginning is named Sheet1 and cell A1

Option Explicit

Sub Hyper()
    Dim ws As Worksheet

    For Each ws In ActiveWorkbook.Worksheets
        If ws.Name <> "Sheet1" Then
            ws.Hyperlinks.Add _
              Anchor:=ws.Range("B1"), _
              Address:="", _
              SubAddress:="Sheet1!A1", _
              TextToDisplay:="Back To Beginning"
        End If
    Next ws
    MsgBox ("Completed")
End Sub

Placing same in Last cell in Column A of worksheet

Option Explicit

Sub Hyper()
    Dim ws As Worksheet
    Dim lr As Long
   

    For Each ws In ActiveWorkbook.Worksheets
        If ws.Name <> "Sheet1" Then
        lr = ws.Range("A" & Rows.Count).End(xlUp).Row
            ws.Hyperlinks.Add _
              Anchor:=ws.Range("A" & lr), _
              Address:="", _
              SubAddress:="Sheet1!A1", _
              TextToDisplay:="return to sheet1"
        End If
    Next ws
    MsgBox ("Completed")
End Sub

Question, finally in a lot cases I have the text that covers several columns, but the link works when you get in the beginning. (example attached).
Is it possible to merge the cells for the length of the text?