If time is the first condition place that first..as below. I have not
modified the code but re-arranged the conditions..

Dim wsTemp As Worksheet
Set wsTemp = Workbooks("Sr Rep Stats").Worksheets("Combined")

'If time greater than 7
If Time TimeSerial(7, 0, 0) Then
If wsTemp.Range("d3").Value 0.03 Then Call CenrteVuSeniorB
Else
If wsTemp.Range("d4").Value 0.03 Then
Call CentreVuSeniorA
ElseIf wsTemp.Range("d3").Value 0.03 Then
Call CentreVuSeniorB
ElseIf wsTemp.Range("d2").Value 0.03 Then
Call CentreVuSeniorC
End If
End If

'Quit
Application.DisplayAlerts = False
Application.Quit



If this post helps click Yes
---------------
Jacob Skaria


"Sabosis" wrote:

Hello-

I have the following code that checks 3 scenarios in an IF statement,
and sends an email to a select group if the conditions are true.

If Workbooks("Sr Rep Stats").Worksheets("Combined").Range("d4").Value
0.03 Then
Call CentreVuSeniorA
ElseIf Workbooks("Sr Rep Stats").Worksheets("Combined").Range
("d3").Value 0.03 Then
Call CentreVuSeniorB
ElseIf Workbooks("Sr Rep Stats").Worksheets("Combined").Range
("d2").Value 0.03 Then
Call CentreVuSeniorC
Else
End If
Application.DisplayAlerts = False
Application.Quit

"d4" is a combined number for city A & city B, "d3" is city A, and
"d2" is city B. The problem I am having is that this code starts
running at 7:00 am via task scheduler, and there are times that "d3"
might show #DIV/0! as it is a calculated cell and there might not be
statistics for city A at 7:00am.

I tried to add a bit of code to this line to only look at the 2nd IF
statement when the time is greater than 7:00 AM, but it did not work:

If Workbooks("Sr Rep Stats").Worksheets("Combined").Range("d3").Value
0.03 And Time TimeSerial(7, 0, 0) Then
Call CenrteVuSeniorB

Any ideas?

Thanks