Last question;

I have two comboboxes. The first has a rowsource from a named range of
dates. I want to populate the second rowsource when a date is chosen in the
first one. I only want to show dates greater than the first in the second.
I am assuming I want to use a for each to compare values, but I am stumped:

Dim CheckDate as ?

Combobox2.rowsource=""

For Each CheckDate in (namedrange)
if CheckDate Combobox1.value then
combobox2.additem CheckDate
end if
next CheckDate


Any suggestions? Thanks!

Dim CheckDate as Range

Combobox2.rowsource=""
Combobox2.Clear
For Each CheckDate in Range("DateRange")
If CheckDate.Value2 cLng(Combobox1.value) then
combobox2.additem format(CheckDate.Value,"m/d/yyyy")
end if
next CheckDate

--
Regards,
Tom Ogilvy

"King" wrote in message
news:3EBib.755712$Ho3.193248@sccrnsc03...
Last question;

I have two comboboxes. The first has a rowsource from a named range of
dates. I want to populate the second rowsource when a date is chosen in
the
first one. I only want to show dates greater than the first in the
second.
I am assuming I want to use a for each to compare values, but I am
stumped:

Dim CheckDate as ?

Combobox2.rowsource=""

For Each CheckDate in (namedrange)
if CheckDate Combobox1.value then
combobox2.additem CheckDate
end if
next CheckDate


Any suggestions? Thanks!