Sub proving()
Worksheets("Proving Equipment").Visible = True
Sheets("Proving Equipment").Select
If (n62 + 31) < o62 Then
MsgBox ("Proving Equipment Expires Within 1 Month"),
vbInformation, "Proving Kit Check"
Else
'MsgBox ("No Probs"), vbInformation, "Proving Kit Check"
End If
End Sub

I have date formatted n62 and 062, and in the cells I have 16/05/09
and 16/06/09 but when I pause the macro mid stream and hover over the
n62 and o62 it says =empty.

Needless to say it doesent work unless I swap the < sign around.

It always displays the first msg box unless i swap the < then it
displays the other message box. Changing the dates doesent trigger the
change.

I want to allow 31 days before the first msg box pops up.

TIA

Aaron.