Troca de planilha por macro

[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