sub mehrmals gleichzeitig laufen lassen

Sub Macro3()
Macro1
newHour = Hour(Now())
newMinute = Minute(Now())
newSecond = Second(Now()) + 0.5
waitTime = TimeSerial(newHour, newMinute, newSecond)
Application.Wait waitTime
Macro1
End Sub