3 things:
1: Give a date format example in your Prompt: "Enter Date: ex.( 01/02/2001)
2: Do a test: If Not IsDate(MyValue) then Msgbox " Invalid Date Given
and prompt the user to do whatever calls the Inputbox again, or recall InputBo
3: Convert uers value to a date: MyRng.Calue = CvDate(MyValue)
----- Michael wrote: ----

I need to include in my macro a user defined date field,
i.e show all invoices before a certain date. I have tried
this with Myvalue = InputBox("Enter a date") but this
returns a value not a date when added to a cell in the
worksheet.

Any help would be greatly appreciated

Thank
Michae