Untested code

Sub datechk(
Application.ScreenUpdating = Fals
For a = 1 To ActiveSheet.UsedRange.SpecialCells(xlLastCell).Ro
If Cells(a, 4).Value < Date Then GoTo hi
Next
MsgBox ("Accounts appear to be in order"
Application.ScreenUpdating = Tru
Exit Su
hit
MsgBox ("You have some accounts to be deleted!"

Application.ScreenUpdating = Tru
End Su

HTH