Macro de VBA En estilo de temporizador para ejecutar código cada número de segundos establecido, es decir, 120 segundos

Sí, puedes usar Application.OnTime para esto y luego ponerlo en un bucle. Es como un despertador donde mantienes pulsado el botón de repetición para cuando quieras que suene de nuevo. La siguiente actualización de la celda A1 cada tres segundos con el tiempo.

Dim TimerActive As Boolean
Sub StartTimer()
    Start_Timer
End Sub

Private Sub Start_Timer()
    TimerActive = True
    Application.OnTime Now() + TimeValue("00:00:03"), "Timer"
End Sub

Private Sub Stop_Timer()
    TimerActive = False
End Sub

Private Sub Timer()
    If TimerActive Then
        ActiveSheet.Cells(1, 1).Value = Time
        Application.OnTime Now() + TimeValue("00:00:03"), "Timer"
    End If
End Sub

Puede poner el procedimiento StartTimer en su evento Auto_Open y cambiar lo que se hace en el procedimiento Timer (en este momento solo está actualizando el tiempo en A1 con ActiveSheet.Cells(1, 1).Value = Time).

Nota : querrás el código (además de StartTimer) en un módulo, no es un módulo de hoja de trabajo. Si lo tiene en un módulo de hoja de trabajo, el código requiere una ligera modificación.

En los eventos del libro de trabajo:

Private Sub Workbook_Open()
    RunEveryTwoMinutes
End Sub

En un módulo:

Sub RunEveryTwoMinutes()
    //Add code here for whatever you want to happen
    Application.OnTime Now + TimeValue("00:02:00"), "RunEveryTwoMinutes"
End Sub

Si solo desea que la primera pieza de código se ejecute después de que se abra el libro de trabajo, simplemente agregue un retraso de 2 minutos en el evento Workbook_Open

(Esto está parafraseado de los archivos de ayuda de MS Access. Estoy seguro de que XL tiene algo similar.) Básicamente, TimerInterval es una propiedad a nivel de formulario. Una vez configurado, utilice el sub Form_Timer para llevar a cabo la acción deseada.

Sub Form_Load()
    Me.TimerInterval = 1000 '1000 = 1 second
End Sub

Sub Form_Timer()
    'Do Stuff
End Sub

He descubierto que usar OnTime puede ser doloroso, particularmente cuando:

1. Estás intentando codificar y el foco en la ventana se interrumpe cada vez que se desencadena el evento.
2. Tiene varios libros de trabajo abiertos, cierra el que se supone que debe usar el temporizador, y sigue activando y reabriendo el libro de trabajo (si olvidó matar el evento correctamente).

Este artículo de Chip Pearson fue muy esclarecedor. Prefiero usar el temporizador de Windows ahora, en lugar de OnTime.

Mi solución:

Option Explicit
Public datHora As Date

Function Cronometro(action As Integer) As Integer 
'This return the seconds between two >calls
Cronometro = 0
  If action = 1 Then 'Start
    datHora = Now
  End If
  If action = 2 Then 'Time until that moment
    Cronometro = DateDiff("s", datHora, Now)
  End If
End Function

Cómo utilizar? Sencillo...

dummy= Cronometro(1) ' This starts the timer

seconds= Cronometro(2) ' This returns the seconds between the first call and this one