Macro Excel para mudar de aba pelo valor (nome da aba) digitado numa célula

[R Alexandre Souza]

Como faço para criar uma macro, numa célula para mudar para determinada aba quando eu digitar o nome da aba?

Os nomes das abas serão 1, 2, 3... Representando os dias do mês, num relatório.

[Basole]

Click botao direito sobre o nome da respect. aba e selecione "exibir codigo" e cole o cod abaixo:

Private Sub Worksheet_Change(ByVal Target As Range)Dim ws As Worksheet    For Each ws In ActiveWorkbook.Worksheets        If ws.Name = Target.Value Then ws.Activate: Exit For    NextEnd Sub

[R Alexandre Souza]

 

Click botao direito sobre o nome da respect. aba e selecione "exibir codigo" e cole o cod abaixo:

Private Sub Worksheet_Change(ByVal Target As Range)Dim ws As Worksheet    For Each ws In ActiveWorkbook.Worksheets        If ws.Name = Target.Value Then ws.Activate: Exit For    NextEnd Sub

 

Basole você pode me explicar as partes dessa macro?

 

Onde eu defino onde será digitado o nome da aba, por exemplo?

[Basole]

Private Sub Worksheet_Change(ByVal Target As Range)    Dim ws As Worksheet    If Not Intersect(Target, Range("$A1:$A10")) Is Nothing Then  'AQUI: altere seu intervalo        If Target.Value <> "" Then            For Each ws In ActiveWorkbook.Worksheets                If ws.Name = Target.Value Then ws.Activate: Exit For            Next        End If    End IfEnd Sub

* A macro só vai 'agir' no intervalo indicado. Altere de acordo c/ sua necessidade

[R Alexandre Souza]

@Basole muito obrigado!