Как ускорить макрос в Excel 2003

[polomus]

Есть набор книг реализованных в Excel, для достижения желаемого результата необходимо обновлять данные по определенному (известному) порядку.

Для обновления файлов я использую процедуру:

Private Sub Открыть(Имя_файла)
Workbooks.Open Filename:=Имя_файла, UpdateLinks:=3
ActiveWorkbook.Save
ActiveWindow.Close
End Sub

Общий макрос имеет вид:

Private Sub Общий()
Application.ScreenUpdating = False
Открыть("c:\Ф1.xls")
Открыть("c:\Ф2.xls")
Application.ScreenUpdating = True
End Sub

Однако, таких файлов у меня больше сотни.

Подскажите, пожалуйста, как можно ускорить работу общего макроса?

Спасибо за ответы.

[андей]

отключение автоматического вычисления очень ускоряет процесс
файлы (если они в одной папке) очень удобно открывать с помощью Filesearch

[Marchuk]

Path()

Dir()

почитай про это.

[voam]

Попробуйте воспользоваться следующей процедурой:

Sub Main()
Dim strFile As String
Dim strPath As String

Application.ScreenUpdating = False
strPath = "C:\"
strFile = Dir(strPath & "*.xls")
Do Until strFile = ""
  Открыть strPath & strFile
strFile = Dir
Loop
Application.ScreenUpdating = True

End Sub

Предполагается, что в корне диска C, где осуществляется поиск файлов, находятся только нужные файлы Excel.

[The_Prist]

Я может чего-то не понимаю? Человек просил ускорить процедуру, а не сократить код.
Еще есть вот это:

необходимо обновлять данные по определенному (известному) порядку

А выполняется процедура долго из-за того, что долго обновляются ссылки. Или я не прав?
Если я все-таки прав, то горю помочь нечем.