conditional reset

[james]

my form cell e3 always contains the date and I would like
to set the form to clear all contents if the date is
before todays date.

i know it should be something like this but i know ive
got some wrong

if activeworksheet.range("e3").value=<today
then
clear activeworksheet.range("d6:d26)
else
end if

thanks

Jim

 

[IC]

If ActiveSheet.Range("e3").Value <= Date Then
ActiveSheet.Range("d6:d26").Value = ""
Else
End If

Ian

 

[Neil]

James,

If DateValue(ActiveSheet.Range("e3").Value) < Date Then
ActiveSheet.Range("d6:d26").ClearContents
End If

Regards
Neil