VBA: Repetir una macro cada x tiempo.

Hace algún tiempo publiqué un par de entradas donde aplicabamos el método .OnTime, en una de ellas mostrábamos lo más esencial de este método (ejemplo1) y en el segundo algo más elaborado, donde completábamos un cronómetro (ejemplo2).
En la entrada de hoy, dando respuesta a un lector, mostraremos algo interesante (parecido al ejemplo del cronómetro), y es la forma en cómo poder repetir con una carencia de tiempo definida una macro o rutina.
La idea entonces es clara, queremos automatizar la repetición controlada de una macro cada x segundos, minutos u horas. Para ello crearemos tres procesos Sub:
1- macro que inicie todo el proceso, y que además controle el final de las repeticiones
2- macro que de por finalizado el método .OnTime
3- por supuesto, nuestra macro principal, la que queremos se ejecute cada x tiempo.

Estas son nuestras macros que añadiremos nuestro código asociándolo a un Módulo; para ello accederemos a la ventana de código del explorador del editor de VBA, donde insertaremos el siguiente código VBA:

'declaración de variables para todo el módulo
Dim tiempo As Date
Dim contador As Integer

Sub IniciaOnTime()
'controla la repetición y la cadencia
Dim allea As Integer
'repetición cada 2 segundos
tiempo = Now + TimeSerial(0, 0, 2)
'llama a esta misma macro en el tiempo estipulado
Application.OnTime tiempo, "IniciaOnTime"
'controlamos el final de la repetición
contador = contador + 1
'mientras el contador sea menor a 6 ejecutamos la rutina principal
'cuando lleguemos a 6 interrumpimos la repetición
If contador < 6 Then
    Run "MacroPrincipal"
Else
    Run "CancelaOnTime"
End If
End Sub

Sub CancelaOnTime()
'ejecuta el final de la repetición y reinicia el contador
    Application.OnTime tiempo, "IniciaOnTime", , False
    contador = 0
End Sub

Sub MacroPrincipal()
'el código de la rutina a repetir
'cualquier procedimiento....
With Range("B2")
    .Value = contador & " - " & Now
    Randomize
    allea = Int(20 * Rnd)
    If allea < 5 Then
        .Interior.Color = vbRed
        .Font.Color = vbYellow
    End If
    If allea >= 5 And allea < 10 Then
        .Interior.Color = vbGreen
        .Font.Color = vbBlack
    End If
    If allea >= 10 And allea < 20 Then
        .Interior.Color = vbBlue
        .Font.Color = vbWhite
    End If
End With
End Sub

Algo fundamental es incluir algún control que finalice las reiteraciones, ya que de lo contrario nunca finalizará y tendremos que pararlo manualmente entrnado en el editor. En el ejemplo el control se ha realizado con un 'contador' que ejecuta y para el método .Ontime.. cuando contador llegue a 6 se lanza la macro CancelaOntime. Otra manera, si nos interesa que la repetición esté operativa mientras el libro esté abierto es asociar el inicio y fin a un evento WorkBook_Open y otro WorkBook_Close. Este sería el resultado visible: