Макрос форматирования данных в дату

[Captain_Hemp]

Нужно перед импортом xls-файла в dbf привести все даты к единому формату. Но проблема в том, что макрос меняет формат в столбцах вплоть до наличия пустой ячейки, а дальше отказывается работать. Привожу код ниже:

Sub data()
Worksheets("ðîçïë.(ðàõ.1)").Range("M7:M10000").NumberFormat = "DD/MM/YYYY"
Worksheets("äåìîíòàæ(ðàõ.2)").Range("M7:M10000").NumberFormat = "DD/MM/YYYY"
Worksheets("ïëîìá.(ðàõ.3)").Range("M7:M10000").NumberFormat = "DD/MM/YYYY"
Worksheets("ïëîìá.(ðàõ.3)").Range("R7:R10000").NumberFormat = "DD/MM/YYYY"
Worksheets("ïëîìá.(ðàõ.3)").Range("W7:W10000").NumberFormat = "DD/MM/YYYY"
Worksheets("ìîíòàæ(ðàõ.4)").Range("M7:M10000,R7:R10000,W7:W10000")
.NumberFormat = "DD/MM/YYYY"
Worksheets("ïîâ³ðêà,ÖÑÌ(ðàõ.5,6)").Range("G7:G10000").NumberFormat = 
"DD/MM/YYYY"
 Worksheets("ðåìîíò(ðàõ.7)").Range("K6:K10000").NumberFormat = "DD/MM/YYYY"
 End Sub

[Aleksandr H.]

для екселя от 2010
1. выделить столбец М
2. установить Формат Ячеек - (все форматы) - dd/mm/yyyy - OK
3. Вкладка Данные - Работа с данными-ТекстПоСтолбцам-Готово.

[kuklp]

Кросс:
http://www.excelworld.ru/forum/10-34339-1