Hi,
Please use below code and call your macro in this...
Quote:
Option Explicit
Sub AutoRunAfter1Minute()
Dim i As Long
'i is minute...
For i = 1 To 5000
'Call your Macro or Your Code
MsgBox "Your Macro"
Application.Wait (Now + TimeValue("0:01:00"))
Next i
End Sub
|