Подскажите, пожалуйста, как одним макросом обработать сразу все эксель-книги из конкретного каталога(включая вложенные каталоги),  не открывая каждый раз книгу?  
Вот сам макрос:  
Sub DeleteEmptyRows()  
 
If MsgBox("Удалить все пустые строки на листе?", vbOKCancel Or vbQuestion Or vbDefaultButton1, "Удалить пустые строки?") = vbCancel Then Exit Sub  
Dim lLastRow As Long, i As Long  
lLastRow = ActiveSheet.UsedRange.Row - 1 + ActiveSheet.UsedRange.Rows.Count  
Application.ScreenUpdating = False  
For i = lLastRow To 1 Step -1  
If Cells(i,14).Text = "" Then Rows(i).Delete  
Next  
Application.ScreenUpdating = True  
End Sub

Доброго Всем дня!!!!  
При работе над дипломом возникла следующая проблема:  
Имеется порядка 1500 исходных экселек с данными...  
Необходимо в каждом файле удалить пустые строки(а точнее строки не совсем пустые, а с заполненными некоторыми столбцами)  
Пробовал записать макрос  
Sub Макрос4()  
'  
' Макрос4 Макрос  
'  
' Сочетание клавиш: Ctrl+ъ  
'  
   Selection.SpecialCells(xlCellTypeBlanks).Select  
   Selection.EntireRow.Delete  
End Sub  
При открытии нового файла макрос не работает...  
Выдает ошибку 1004:Данная команда не применима для перекрывающихся диапазонов  
пример экселевского файла в приложении...  
Я был бы очень признателен, если бы умы форума сего откликнулись и помогли разобраться...