Need a small bit of help, in calling a Macro (A below) if cell AE60,
if it is or isn't I still want to to test and run (B) below, do I have
the syntax of my End If's correct?

...........
(A) If Sheets("Sheet1").Range("AE6").Value 0 Then

Mail_New_Version 'run this sub macro

Call UncheckBoxes
Call DelAllCheckBoxes


(B) If Weekday(Sheets("Input").Range("BF1")) = vbMonday _
And Sheets("E-Mail").Range("AE6").Value = 0 Then
MailToBobWeekly '<------ run this sub macro


Call UncheckBoxes
Call DelAllCheckBoxes

End If
End if
End Sub

try this
If Sheets("Sheet1").Range("AE6").Value 0 Then
Mail_New_Version 'run this sub macro
Call UncheckBoxes
Call DelAllCheckBoxes
End If
If Weekday(Sheets("Input").Range("BF1")) = vbMonday _
And Sheets("E-Mail").Range("AE6").Value = 0 Then
MailToBobWeekly '<------ run this sub macro
Call UncheckBoxes
Call DelAllCheckBoxes
End if


"Sean" wrote:

Need a small bit of help, in calling a Macro (A below) if cell AE60,
if it is or isn't I still want to to test and run (B) below, do I have
the syntax of my End If's correct?

...........
(A) If Sheets("Sheet1").Range("AE6").Value 0 Then

Mail_New_Version 'run this sub macro

Call UncheckBoxes
Call DelAllCheckBoxes


(B) If Weekday(Sheets("Input").Range("BF1")) = vbMonday _
And Sheets("E-Mail").Range("AE6").Value = 0 Then
MailToBobWeekly '<------ run this sub macro


Call UncheckBoxes
Call DelAllCheckBoxes

End If
End if
End Sub

Thanks Mike, I was unsure of where to place both End If's

I can't get the following extract of code to work, it doesn't execute
as I expect

My cells values a-
AE6 = 0
BF1 = 18/02/08 i.e. Monday

Thus I expect Mail_New_Version to be 'skipped' and MailToBobWeekly to
execute. What am I doing incorrectly?

If Sheets("Input").Range("AE6").Value 0 Then
Mail_New_Version '<-----run this sub macro
End If
If Weekday(Sheets("Input").Range("BF1")) = vbMonday _
And Sheets("Input").Range("AE6").Value = 0 Then
Call MailToBobWeekly '<---------run this sub macro
End If

On Feb 18, 5:07*pm, Sean wrote:
I can't get the following extract of code to work, it doesn't execute
as I expect

My cells values a-
AE6 = 0
BF1 = 18/02/08 i.e. Monday

Thus I expect Mail_New_Version to be 'skipped' and MailToBobWeekly to
execute. What am I doing incorrectly?

* * If Sheets("Input").Range("AE6").Value 0 Then
* * Mail_New_Version * * *'<-----run this sub macro
* * End If
* * If Weekday(Sheets("Input").Range("BF1")) = vbMonday _
* * * * * * *And Sheets("Input").Range("AE6").Value = 0 Then
* * * * Call MailToBobWeekly * * * '<---------run this sub macro
* * End If

Hey Sean

Try to debug, if
debug.print Weekday(Sheets("Input").Range("BF1"))
gives you the correct output or not.

The code looks fine for me.

hth
Carlo

Thanks Carlo, Weekday = 2, which is what I expect