Como indicar a la macro que continué y no se detenga

Tengo un libro con 4 hojas y una macro que sirve para desplazarse cada cierto tiempo de hoja en hoja, el problema se presenta cuando llega a la hoja final... La macro se detiene
lo que se desea es que la macro continué desde la primera hoja otra vez

Dim tiempo As Variant
Dim ejecutando As Boolean

Sub programarmacro()
tiempo = Now + TimeValue("00:00:06")
Application.OnTime tiempo, "mimacro", , True
End Sub

Sub mimacro()
ActiveSheet.Next.Select
Range("A1").Select
Call programarmacro
End Sub

Sub iniciarReloj()
ejecutando = True
Call programarmacro
End Sub

Sub detenerReloj()
ejecutando = False
Application.OnTime tiempo, "mimacro", , False
End Sub