Boa tarde!!

Use VBA.

Sub AleVBA_12621()
    Dim sSheet As String

    sSheet = InputBox( _
      Prompt:="Nome ou Número da guia?", _
      Title:="Selecionar Guia")
    On Error Resume Next
    If Val(sSheet) > 0 Then
        Worksheets(Val(sSheet)).Activate
    Else
        Worksheets(sSheet).Activate
    End If
End Sub

Att

Alexandre,

Obrigado Pela Dica.. Muito legal este comando, mais gostaria que fosse feita uma verificação em todas as abas,
sem que seja necessario informa-la no inicio. E o IF precisava ser com base em uma determinada celula. Será que é possivel?

Boa tarde!!

essa parte

Toda vez que a seleção Range("B3").Select for maior que 10 selecione esta aba

Tem como explicar
Ou é algo assim

Sub EEEEE() 
     
    If ActiveSheet.Index <> ActiveWorkbook.Sheets(ActiveWorkbook.Sheets.Count).Index Then 
        ActiveSheet.Next.Activate 
    Else 
        ActiveWorkbook.Sheets(1).Activate 
    End If 
     
End Sub 

Boa tarde!!

Tente adaptar.

Sub AleVBA_12621()
'Se for da Guia "Plan1" maior 10########################Caso contrário use assim....
    If Worksheets("Plan1").Range("B3").Value > 10 Then ' If Range("B3").Value > 10 Then
    If ActiveSheet.Index <> ActiveWorkbook.Sheets(ActiveWorkbook.Sheets.Count).Index Then
        ActiveSheet.Next.Activate
    Else
        ActiveWorkbook.Sheets(1).Activate
    End If
    Else: Exit Sub
    End If
End Sub

Att

Ajudou bastante.... Obrigado Amigo!!!

Boa tarde!!

Eu fico feliz por ajuda, obrigado pelo retorno!!

Att