I currently have some code which checks the dates in a range when the workbook first opens.
date in the range matches the current date or is older than the current date then I'd like a Userform to popup warning the
user that something has expired.
I'd like to add sometimes that some of the cells in the range may be blank.
Currently the Userform pops up regardless
I hope someone can help :-)
Here's what I currently
have ..... Thanks
Private Sub Workbook_Open()
'Check Expiry Dates
Dim ACell As Range
For Each ACell In Sheets("Information").Range("i7:i100")
If ACell.Value = Date Then
ElseIf ACell.Value < Date Then
If you like these VB formatting tags please consider sponsoring the author in support of injured Royal Marines