Tia_

Все свои макросы для работы в Office 2007 пришлось редактировать, т.к. VBA спотыкался об FileSearch БЫЛО: With Application.FileSearch .LookIn = MyFileway .Filename = MyFilename If .Execute > 0 Then .... ПРИШЛОСЬ ИСПРАВИТЬ НА: Dim s as string ... s = Dir(MyFileway& MyFilename) If s <> "" Then ....