Clear cell after 60 seconds vba

[eviehc123]

Hi all,

I want to clear cell "I15" after 60 seconds. I will be calling this sub within another sub. Probably being stupid but can someone see why the following isn't working? The cell is being cleared instantly.

Sub ClearTimer()
Dim StartTime As Single
StartTime = Timer
Do While Timer - StartTime <= 60
    Range("I15").ClearContents
Loop
MsgBox "cleared"
End Sub

Thanks

 

[Akuini]

Maybe something like this:

Application.Wait (Now + TimeValue("0:01:00"))
 Range("I15").ClearContents

 

[bobsan42]

It is actually cleared during every loop for the next 60 seconds.
You have to clear the contents after the loop is finished.

Dim starttime: starttime = VBA.timer
Do While VBA.timer - starttime <= 15
   DoEvents
Loop
Range("I15").ClearContents

 

[eviehc123]

Works perfectly thanks Akuini!

 

[Akuini]

You're welcome, glad to help, & thanks for the feedback.