Criar_Hiperlilnk baseado no nome das guias

Boa noite!!

Criar hiperlinks baseado em uma coluna onde em cada célula dessa coluna tem o nome da guia que deseja criar o hipoerlink

Não testado!

Código:

Sub Criar_Hiperlilnk()
    Dim cell As Range, ws As Worksheet
    With Sheets("Plan1") 'Guia com os nomes que setornaram Hiperlink
        On Error Resume Next
        For Each cell In .Range("A1", .Range("A" & Rows.Count).End(xlUp))
            If cell.Value <> "" Then
                Set ws = Nothing
                Set ws = Sheets(cell.Value)
                If Not ws Is Nothing Then
                    .Hyperlinks.Add Anchor:=cell, Address:="", SubAddress:=("'" & cell.Value & "'!A1")
                End If
            End If
        Next cell
        On Error GoTo 0
    End With
End Sub

Att