Force user to enter a valid date

[deduwa]

Hi,

I have the below code. Is there a way to amend such that the user is forced to enter a valid date in the dd/mm/yyyy format (With the / included in between);


Dim Ans As Date
Ans = InputBox("Enter date in format dd/mm/yyyy")
Range("A1").Value = Ans


Thanks

 

[bobbysmith]

you can do a data validation in range A1

 

[steve the fish]

How about:

Dim Ans As String
Ans = InputBox("Enter date in format dd/mm/yyyy")

If IsDate(Ans) Then
    Range("A1").Value = CDate(Ans)
End If