Date Verification

[AMena56]

I wrote a macro that allows a user to input a date of their choice in the Format: MM/DD/YYYY and I want to make sure they follow that exact format. Is there some code that will allow me to do just that?

Thank you!

 

[mikerickson]

This will verify that the entry is a date (in some format) and then convert it to mm/dd/yyyy

Dim uiValue As String

Do
    uiValue = Application.InputBox("enter a date", Type:=2)
    
    If uiValue = "False" Then Exit Sub: Rem canceled
    
    If IsDate(uiValue) Then
        uiValue = Format(DateValue(uiValue), "mm/dd/yyyy")
    Else
        uiValue = vbNullString
        MsgBox "you must enter a date"
    End If
Loop While uiValue = vbNullString

MsgBox "user entered " & uiValue