MsgBox if Range as date has passed

[Rtkinnell]

I am sure this has been answered before, therefore I apologize in advance. Can someone please assist me in a macro code under Worksheet_calculate to simply write.

If Range("N9") < Now() And Range("O9").value = False then
MsgBox "xxx xxx"
End If


It seems simple yet I can not come up with it correctly. It could even be written as if cell N9 is < cell B29. B29 being the current date on my sheet. Range O9 is a check box.

 

[Michael M]

I'm guessing you're using a From control checkbox in O9 ??
Change to an activeX checkbox and use....assuming the checkbox is CheckBox1

Private Sub worksheet_calculate()
If Range("N9").Value < Now() And CheckBox1.Value = False Then
MsgBox "xxx xxx"
End If
End Sub

 

[Rtkinnell]

Michael,
I am not near my work now. But i will try this as soon as I can. Thank you very much for your quick assistance.