Input Box On Open (Date)

[jamessaunders]

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