Доброго времени суток!
Коллеги помогите - макрос тормозит страшно.
Макрос нужен для того, чтоб преобразовывать "текстовую" дату в дату в формате "дата".


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

to Rubber

Частично работает если вот так сделать:

Selection.NumberFormat = "m/d/yyyy"

For Each c In Selection
If IsDate(c.Value) Then c = Format(DateValue(c), "dd/mm/yyyy")
Next

Частично потому, что даты начинающиеся не с "0" он как будто не видит.
Почему "Selection.NumberFormat = "m/d/yyyy" ". Потому, что это если писать через макро рекордер
процесс преобразования формата ячейки в дату формата dd/mm/yyyy, то код почему-то выглядит так:

Sub аааа()
Range("L44:L47").Select
Selection.NumberFormat = "m/d/yyyy"
End Sub

to Deggasad: спасибо, заработало побыстрее.