Ja det stämmer. Den körs endast en gång. Här är en otestad lösning (evighetsloop). testa med skyddshandskar och skyddshjälm...

Private Sub Workbook_Open()

'Dont matter what is passed first iteration, except for the boolean
Call myCaller(initiate, 0, false)
End Sub

Function myCaller(myTime As String, k As Long, skipFirstCall As Boolean)
Dim myFunctionsAsStr As String: str = "NattJobb" & k
Dim myTimes As Variant: myTimes = Array("00:02:01", "11:01:01")
Dim k As long


'Kör dina olika nattjobbsSubbar, när de har blivit triggade av OnTime functionen"
'Se till att lägga in tiderna i rätt ordning i arrayen, tid1 kommer köras av Nattjobb1 osv.
If skipFirstCall Then
Application.Run myFunctionsAsStr
End If '

En sekund delay innan den laddar nästa set med Tider att köras.
Sleep (1000)

'Lägger in efterföljande nattjobb recursivt (evighetsloop, triggad av varje Ontime event)
For k = 0 To UBound(myTimes)
Application.OnTime myTimes(k), myCaller(myTimes(k), k + 1, True)
Next k
End Function

Mvh Christian