How to Add Hyperlink in Excel for Multiple Sheets using VBA
How to Add Hyperlink in Excel for Multiple Sheets using VBA
Sub Add_Hyperlink()
Dim iRow As Integer
For iRow = 2 To 21
Sheet1.Range("B" & iRow).Hyperlinks.Add Anchor:=Sheet1.Range("B" & iRow), Address:="", _
SubAddress:="'" & Sheets(iRow).Name & "'" & "!A1", TextToDisplay:="Go To"
Sheets(iRow).Range("A1").Hyperlinks.Add Anchor:=Sheets(iRow).Range("A1"), Address:="", _
SubAddress:="'" & Sheet1.Name & "'" & "!A1", TextToDisplay:="Home"
Next iRow
End Sub