Hyperlink

[Ralter649]

Is there a way that if a name in a cell is the same as the name of a sheet that it will automatically create a hyperlink to go to that sheet?

 

[AC PORTA VIA]

yes
try

Sub ADD_LIST_OF_SHEETS_HYPERLINK() ' SHEET NAME MUST EXIST IN COLUMN A - HYPERLINK WILL BE ADDED IN COLUMN B


Dim lastRow As Long
lastRow = ActiveSheet.Range("a65536").End(xlUp).row
Dim i As Integer

For i = 2 To lastRow

     Cells(i, 2).Hyperlinks.Add Anchor:=Cells(i, 2), Address:="", SubAddress:= _
        "#'" & Cells(i, 1).value & "'" & "!" & "a1", TextToDisplay:="Click Here to Go to" & " " & Cells(i, 1).value 'Cells(i, 1).valuealue
Next i

End Sub