Application.Wait not working

Hi All,

This is my first post so please excuse me if its not in the right place, and thanks in advance to anyone who offers an answer.

I am sure any answers will be of interest to many other users.

A little background:

I am using Excel 2007 to record live data from the internet. The data refreshes very quickly, and all seems to work fine......

Except for one thing- I want to pause the Application for a specified period of time, E.G 30 seconds. After this time I want to fire a macro.

The problem is, the Application.Wait function does not fire. When I attempt to change the code, it produces an error....

Here's the code:


[CODE}
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect(Target, Range("E2,H2")) Is Nothing Then Exit Sub

Application.EnableEvents = False



If (Worksheets("Sheet2").Cells(2, 5).Value = "Recording") Then
Worksheets("Sheet2").Range("A20") = Now()
Application.Wait (Now + TimeValue("0:00:40"))

' I Have also tried the above line using "Now()" in the above line


End If


// Other code here


'Stop any possible runtime errors and halting code

On Error Resume Next

'Turn off ALL events so the routine does not put the code into a loop.



'Turn events back on

Application.EnableEvents = True

'Allow run time errors again

On Error GoTo 0



'End If


End Sub

[CODE]

Welcome to the forum.

Please take a few minutes to read the forum rules, and then edit your post to have an appropriate title and use CODE tags.

Thanks.

Hi Herbie1809;

Just letting you know that it's against the rules for any one to reply to your question until you comply with the infraction.