James,

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

Regards
Neil
"james" wrote in message
...
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