Непонятный формат даты

[Dima36668]

Доброго времени суток!
Прошу помочь разобраться в простейшем вопросе.
Импортировал данные в Excel, в т.ч. есть столбец с датой, однако, программа воспринимает введенные данные просто как непонятное значение - не как дату, изменение формата ячейки не лечит.

Решение нашел - преобразование происходит если в находясь на ячейки нажать на строку формул и Enter.

Думал что импортировались значения формул, а не даты попробовал макрос:

Sub Formulas_To_Values()
Selection.Value = Selection.Value
End Sub

не помогает, ячеек с такой "косячной датой" сотни тысяч, прошу подсказать кому не жалко, как можно ускорить их преобразование в нормальный формат.

Пример имеющихся данных во вложении. Ячейка А2 -"вылечена", остальные нет.

[doober]

Sub Доктор
For Each cel In Selection.Cells
cel.Value = CDate(cel)
Next
end sub

[Dima36668]

Сообщение от doober

Sub Доктор
For Each cel In Selection.Cells
cel.Value = CDate(cel)
Next
end sub

Большое человеческое спасибо!!!!!