This ran without error on my windows 10 machine with the format mm/dd/yyyy.

While this probably isn't the best solution you may try adding the following lines
add this so that it is the first line of your sub
On Error Resume Next
add this just above the 'End Sub' line
On Error GoTo 0