Call Macro If x 2 Q
 

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

Call Macro If x 2 Q
 

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

Call Macro If x 2 Q
 

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

Call Macro If x 2 Q
 

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

Call Macro If x 2 Q
 

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

Call Macro If x 2 Q
 

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

Call Macro If x 2 Q
 

Carlo, both my cells AE6 & BF1 are formula's does that mater?

Call Macro If x 2 Q
 

Fixed, I had the syntax of an e-mail address wrong and I didn't see
the error as I had an 'on error resume next' statement - Doh!