Adding date validation with VBA

Here's a recording:

Sub DV()
'
' DV Macro
'

'
    With Selection.Validation
        .Delete
        .Add Type:=xlValidateCustom, AlertStyle:=xlValidAlertStop, Operator:= _
        xlBetween, Formula1:="mm/dd/yyyy"
        .IgnoreBlank = True
        .InCellDropdown = True
        .InputTitle = ""
        .ErrorTitle = "ErrMess"
        .InputMessage = ""
        .ErrorMessage = "Must be xx/xx/xxxx"
        .ShowInput = True
        .ShowError = True
    End With
End Sub

Any more details, maybe we can edit this into something more useful.

You're welcome!