Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- JAN/19
- JAN02/19
- JAN19
- If IsError(DateValue("01 " & Left(Cells(1, 1), 3) & " 19")) = True Then
- MsgBox "Oops, " & Left(Cells(1, 1), 3) & " is not a valid month abbreviation"
- End If
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement