Prompt for Date/Time

Looking for code that prompts a user to enter a date and time (eg 02/02/2011 8:31 PM) and then pastes that date/time into another cell (eg A1). I would like the user to be limited to the date/time format I provided for consistency and calculations.

It would be even better if the code could default to the current date and time and then ask the user, "Do you want to use the current date/time?". They would then choose "Yes" or "No". If the answer is "Yes", the current date and time would be pasted in the aforementioned spot (cell A1). If the answer is "No", the user would have the option to type the current date and time and have that data input pasted to A1.

Any help woul be greatly appreciated.

Should I make this question more clear?

Maybe like this:

Please Login or Register  to view this content.

This works FANTASTIC, thank you. For the record (meaning other users), I adjusted the code very slightly to allow the entering of "two-digit hours" like 10, 11, and 12. Again, thanks so much and look for positive feedback.

Sub dj()
Dim sDate As String
Dim v As Variant

Do
sDate = InputBox(Prompt:="Date & time?", _
Default:=Format(Now, "mm/dd/yyyy hh:mm AM/PM"))
If sDate Like "##/##/#### ##:## [aApP][mM]" Or _
sDate Like "##/##/#### ##:## [aApP][mM]" Then
v = DateValue(sDate)
End If
Loop While IsEmpty(v)

Range("A1") = CDate(sDate)
End Sub

just a note:
That inputbox forces you to choose a date/time, with no way to escape until that takes place....kinda scary not to be able to get out of the loop with a disabled "x" button and no cancel button.

dreicer, please edit your post to add CODE tags.

I corrected the code below to support one- and two-digit hours