Try using CDate(Range(A1).Value), this converts the values to a date on the fly https://learn.microsoft.com/en-us/office/vba/language/concepts/getting-started/type-conversion-functions
CDate(Range(A1).Value)