No time component, just the date. This seems a bit much. Is this how
it's done?

Dim dt As Date: dt = Now()
Dim justDate As Date: justDate = DateValue(DatePart("m", dt) & "/" &
DatePart("d", dt) & "/" & DatePart("yyyy", dt))