Excel que permite selecionar uma célula e ir para o nome da planilha correspondente

Question

Eu tenho o seguinte código para selecionar uma célula com um nome específico e ir para a planilha que é o nome daquela célula.

Dim ws As Worksheet
If Target.Address = "$A$1" Then
    For Each ws In ActiveWorkbook.Worksheets
        If ws.Name = Range("A1").Value Then
         ws.Activate
        End If
    Next ws
End If

No entanto, gostaria de fazer isso para células na coluna A! A1-A306 como devo modificar o código?

    

Answer 1

Eu faria assim - mas não fazendo isso olhando para o valor de .Address

If Not (Intersect(Target, Range("A1:A306")) Is Nothing) Then
    For Each ws In ActiveWorkbook.Worksheets
        If ws.Name = Target.Value Then
         ws.Activate
        End If
    Next ws
End If