Comando VBA para ativar próxima planilha

[Sidney]

Bom dia, amigos!

Alguém pode me dar um help? Conforme comandos abaixo do VBA eu vou para última planilha ativa, porém gostaria de ir para próxima planilha e não a última, sei que o argumento "Count" da terceira linha direciona para última planilha, qual seria o argumento para a próxima página? Sem definir Plan2/Plan3/Plan4, pois irei criar um botão em todas planilhas e associar esta macro.

Sub ProxPlan()

Dim plan As Integer

For plan = 1 To Worksheets.Count

Worksheets(plan).Select

Next

End Sub

No aguardo, desde já obrigado.

[JValq]

Boa tarde!

Veja se este código atende:

Código: Selecionar todos

Sub ProximaPlnilha()
    Dim n As Integer
    
    If ActiveSheet.Index < Worksheets.Count Then
        n = ActiveSheet.Index + 1
        Sheets(n).Select
    Else
        MsgBox "Não há próxima planilha, pois esta é a última", vbCritical, "Próxima Planilha"
    End If
End Sub

Abraço

[Sidney]

Deu certo.

Obrigado.

Abraço