Put this code in a module, run the sub SetMultipleTimers and watch Sheet1.
![]()
Sub SetMultipleTimers() With Worksheets("Sheet1") .Range("C1:C5").Value = "" .Range("C1").Value = "Timers set on " & Now() End With Application.OnTime Now() + TimeValue("00:00:10"), "macro1" Application.OnTime Now() + TimeValue("00:00:15"), "macro2" Application.OnTime Now() + TimeValue("00:00:20"), "macro3" Application.OnTime Now() + TimeValue("00:00:25"), "macro4" Application.OnTime Now() + TimeValue("00:00:30"), "macro5" End Sub Sub macro1() With Worksheets("Sheet1") .Range("C2").Value = "Macro1. Executed on " & Now() End With End Sub Sub macro2() With Worksheets("Sheet1") .Range("C3").Value = "Macro2. Executed on " & Now() End With End Sub Sub macro3() With Worksheets("Sheet1") .Range("C4").Value = "Macro3. Executed on " & Now() End With End Sub Sub macro4() With Worksheets("Sheet1") .Range("C5").Value = "Macro4. Executed on " & Now() End With End Sub Sub macro5() With Worksheets("Sheet1") .Range("C1:C5").Value = "" End With End Sub
Bookmarks