Search specific range for date

[jackfr0st]

I have a pretty simple request, but getting an error with the range.

When the workbook is open, I want to search a specific range ("c2:c15") for any date starting with today and 60 days in the future and popup a msgbox. Below is what I have.

Private Sub Workbook_Open()

If Worksheets("Tests").Range("c2:c15").Value <= Date Then
MsgBox "One of the tests is past due for a review."

ElseIf Worksheets("Tests").Range("c2:c15").Value <= Date + 60 Then
MsgBox "One of the tests needs to be reviewed within the next 60 days."

End If

End Sub

 

[Joe4]

Welcome to the Board!

You cannot run a formula against a whole range like that. It doesn't make logical sense.
Try looping through the cells in the range, and checking each one, structured something like:

Dim cell as Range

For each cell in Sheets("Tests").Range("C2:C15")
    If cell.Value <= Date Then...
        ....
    End If
Next cell

 

[jackfr0st]

Tweaked with your suggestion and works perfectly now. Thank you!

 

[Joe4]

Excellent!
You are welcome. Glad I was able to get you on the right track.