Will do Events help me with this code?

[tonywatsonhelp]

Hi Everyone,

The code below has an "

Application.Wait" command ​

in it.

But what I need is the macro to get triggered then stop for 1 minute before sending the email but have everything else continue to run (I have other macros formulas etc.)

Will Do Events help me here? if so how do i add it in, if not what can?

Thanks

Tony

Private Sub Worksheet_Calculate()  'created by tw


Application.EnableEvents = False
    If Range("T1") <> 0 Then
    Range("V1").Value = Now()
   Sleep 500
    If Range("T1") <> 0 Then
    If Range("R1") = "y" Then
    Range("V2").Value = Now()
    Range("W2").Value = Now + TimeSerial(0, 5, 0)
    
    Application.Wait (Now + TimeValue(Range("R14").Text))
    
    Call EmailSendNew2
   ''MsgBox ("Test worked!" & Chr(10) & Range("V1").Value & Chr(10) & Range("V2").Value & Chr(10) & Range("W2").Value & Chr(10) & Chr(10) & "Thank You"), , ""
    End If
    End If
    End If
 Application.EnableEvents = True
End Sub

 

[paulxmw]

Hi


Try adding

Dim Delay As String

' add delay time        hh:mm
'Delay = Now + TimeValue("00:10"

Paul

 

[tonywatsonhelp]

HI Paul,
Thanks for your help

Tony