Преобразование даты - VB

Формулировка задачи:

Доброго времени суток!
Коллеги помогите - макрос тормозит страшно.
Макрос нужен для того, чтоб преобразовывать "текстовую" дату в дату в формате "дата".
Sub 9999999()
Dim c As Range
Selection.NumberFormat = "m/d/yyyy"
For Each c In Selection
If c Like "*.*" Or c Like "*/*" Then
c.Value = RTrim(Mid(c.Value, 1, 2)) + "/" _
+ RTrim(Mid(c.Value, 4, 2)) + "/" _
+ RTrim(Mid(c.Value, 7, 4))
Select Case Left(c, 1)
Case 0 To 9
c = Format(c, "dd/mm/yyyy")
c = DateValue(c)
End Select
End If
Next
End Sub

Решение задачи: «Преобразование даты»

textual
                            Листинг программы 
                        

                            <font color="blue">Dim</font> x <font color="blue">As</font> Range
 Selection.NumberFormat = <font color="teal">"DD/MM/YYYY"</font>
 <font color="blue">For</font> <font color="blue">Each</font> x <font color="blue">In</font> Selection
   x = Format(x, <font color="teal">"0"</font>)
 <font color="blue">Next</font> x
                        