Visual Basic vba - mudança de sheet a cada 1 minuto

[Ismael Souza]

Bom dia pessoal !

 Alguém teria um código simples para que eu selecione uma sheet a cada um minuto, quando eu chegar na ultima volte pra sheet 1 ?

 

Obrigadi

[Midori]

@Ismael Souza  Pode ser feito com OnTime assim,

 

Sub AtivaPlanilha()
    Static I As Integer
    With ThisWorkbook
        I = (I Mod .Sheets.Count) + 1
        .Sheets(I).Activate
    End With
    Application.OnTime Now + TimeValue("00:01:00"), "AtivaPlanilha"
End Sub

 

[Ismael Souza]

@Midori obrigado pela ajuda..

  eu coloco numa Sub comum e chamo essa sub?

 

 

 

[Midori]

@Ismael Souza Coloque a sub em um módulo e execute.

 

Se quiser que seja executada toda vez que abrir a planilha é só chamar a sub em Workbook Open.