For example, look at the following date cell in Excel. The A2 cell value is not date because ISNUMBER function in cell B2 returned FALSE result. The value is date looking text value, hence we can use the following code to convert to date. Sub DateFormat_Text() Dim Original_Value As Variant Original_Value = Range("A2").Value Dim Target_Value As Long Target_Value = CDate(Original_Value) Range("A2").Value = CDate(Format(Target_Value, "dd-mm-yyyy")) End Sub The above code has returned TRUE value as shown.