Hi all,

i made changes to below code to run every 1 minute. i dont want it to be on wait method, because if the user press "ESC" key
this would terminate macro initiation.

Hence i want macro to run every 1 minute. That is in a day , i want to execute the macro for 540 times.

however i am getting error as macro not found.

Please find below the code:

Sub abcsd()
    With ActiveSheet
        For i = 0 To 540
            Application.Wait Now + TimeValue("00:01:00")
            .Cells(i + 2, 1) = Now
            .Cells(i + 2, 2) = Check_User_name
        Next i
    End With
End Sub