Input Box On Open (Date)

Hello

I have this code to lanch an Input box when my spreadsheet opens, and it works fine:

  Sub Auto_open()
x = InputBox("Please Enter Reporting Date (DD/MM/YYYY)", "deposit calc", vbOKCancel)
Sheets("INPUT").Range("c2") = x
End Sub

Is there a way that I can configure the input box to only allow the user to input a DATE, in the format DD/MM/YYYY?

Many thanks

James

Please read forum rules & wrap your VBA code

See blue link below for rules
See Red link below for Wrapping instructions

If you do not understand the VBA code wrap instructions have a look at my last reply in this thread
http://www.excelforum.com/showthread.php?t=583950

see the Excel VBA Help for types of restrictions on InputBoxes, unfortunately Dates aren't included.

Also, Auto_open macros have been superceded by the Worksheet_Open event of the Workbook object - see

http://www.excel-it.com/Forum/viewtopic.php?t=11