hi i have a list of dates some in the past some in the present. I am
trying to total up the dates that are in the future, but it keeps
returning an inaccurate number. heres the code I am using. Any ideas
or tips would be great

sub
range("a1").select
do until activecell = ""
if activecell date then
total = total+1
end if
activecell.offset(1,0).select
loop
range("b1") = total