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.

Thanks
Michael

Hi Michael,

Try something like:

myValue = InputBox("Enter a date")
Range("A1").Value = Format(myValue, ("mm/dd/yy"))

---
Regards,
Norman


"Michael" wrote in message
...
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.

Thanks
Michael

Thanks very much, so obvious when you know how.

THANKS again
Michael
-----Original Message-----
Hi Michael,

Try something like:

myValue = InputBox("Enter a date")
Range("A1").Value = Format(myValue, ("mm/dd/yy"))

---
Regards,
Norman


"Michael" wrote in
message
...
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.

Thanks
Michael


.

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