Sub carlee()
Dim d As Date
d = DateValue(Application.InputBox("enter date: ", 2))
End Sub

This allows a lot of options for the user, but still gets a date.
--
Gary''s Student - gsnu200713