# Will do Events help me with this code?

#### tonywatsonhelp

##### Well-known Member
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

Code:
``````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``````

### Excel Facts

How to find 2nd largest value in a column?
MAX finds the largest value. =LARGE(A:A,2) will find the second largest. =SMALL(A:A,3) will find the third smallest

#### paulxmw

##### Board Regular
Hi

Code:
``````Dim Delay As String

'Delay = Now + TimeValue("00:10"``````

Paul

HI Paul,

Tony

Replies
17
Views
283
Replies
2
Views
43
Replies
1
Views
44
Replies
3
Views
75
Replies
1
Views
33

1,109,335
Messages
5,528,096
Members
409,802
Latest member
joeino

### This Week's Hot Topics

• Change military grades into rank
Afternoon all Need help with formula that will change military rank (i.e. 1, 2, 3 into Amn, A1C, SrA). Running IF formula that does not work...
• VBA COUNTIF SOLUTION
Hi The following are the errors spread across the several columns from E to Q ie. 13 columns across several sheets with more than 500 rows per...
• INSERT ROW WITH SPECIFIS TEXT IN A COLUMN
Hi All! How can identify that that the row to be inserted has to be inserted before 1st row with specific text in column F. If I record the...