be85

Boa tarde, estou precisando da ajuda de vocês. Aqui no meu trabalho, tive que fazer uma macro para o arquivo ficar trocando de planilha de 10 em 10 segundos mostrando os gráficos lá presentes. Acontece que quando uma planilha passa para a outra, o excel dá erro e fecha. Não sei mexer muito em vba e já não sei o que fazer. Um outro probleminha é que só consigo fazer ela parar com a tela de "debug". Obrigado pela ajuda. Aqui vai o código: Public macro(0 To 6) As Integer Public InitialTime As Long Public Index As Long Public UserWantsOut As Boolean Sub main() ' ' Rodar_graficos Macro ' macro(0) = 1 macro(1) = 2 macro(2) = 3 macro(3) = 4 macro(4) = 5 macro(5) = 6 macro(6) = 7 InitialTime = 0 Index = 0 UserWantsOut = False Do While (UserWantsOut = False) If (Timer - InitialTime > 30) Then Dim modi As Integer modi = Index Mod 7 InitialTime = Timer If (modi = 0) Then Call Macro1 End If If (modi = 1) Then Call Macro2 End If If (modi = 2) Then Call Macro3 End If If (modi = 3) Then Call Macro4 End If If (modi = 4) Then Call Macro5 End If If (modi = 5) Then Call Macro6 End If If (modi = 6) Then Call Macro7 End If Index = Index + 1 End If Loop End Sub Private Sub Form_KeyPress(KeyAscii As Integer) UserWantsOut = True End Sub Onde Macro 1 é uma macro que seleciona uma planilha, macro 2 seleciona outra, e por aí vai... Obrigado