Guru do Excel e Power BI

Sub acessarPlanilha()

    Dim planilha As Worksheet
    
    For Each planilha In ThisWorkbook.Worksheets
            'Essa linha de código está errada, não funciona
            If (planilha.Name = Sheets("DADOS").name)
                          planilha.Name.Active
            End If
    Next planilha
    
End Sub

Sub acessarPlanilha()
    
    On Error GoTo errAccess
    
    Dim w As String
    
    
    w = Sheets("BASE").Range("a1").Value
    
    Sheets(w).Activate
    
    Exit Sub
errAccess:
    MsgBox "Planilha não encontrada"

End Sub

w = Sheets(w).Range(Parâmetro para uma célula que esteja ativa).Value

Sheets(ActiveCell.Value).Activate