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

Ian

"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