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.

 

[mshelton23]

Are you checking Range("09") for the word False? If so you need to put it in quotation marks.

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

 

[Rtkinnell]

No O9 is a checkbox, when unchecked value is false. But I will try this when I get back to conputer. Thank you for the response.

 

[crburke92]

could try something like this. range A1 on your form =TODAY()

Private Sub Workbook_Open()
Dim TDate As Date
TDate = Range("A1")
For Each Cell In Range("B2:B20")
    If Cell.Value < TDate - 10 And Cell.Value <> "" Then
            Cell.Interior.ColorIndex = 19
            Cell.Font.Bold = True
                If Cell.Value > TDate - 10 And Cell.Value <> "" Then
                    Cell.Interior.ColorIndex = 2
                    Cell.Font.Bold = False
                End If
    End If
Next
End Sub

 

[mshelton23]

No O9 is a checkbox, when unchecked value is false. But I will try this when I get back to conputer. Thank you for the response.

A cell itself cannot be a checkbox. If you've inserted a check box form control then you need to refer to it specifically.