Сам отвечу на свой вопрос ))  
 
Sub Open_Workbooks()  
Application.ScreenUpdating = False  
Application.Calculation = xlManual 'xlCalculationManual  
   
Const iPath$ = "C:\Vedomosti\2012\tekushie\" 'Здесь необходимо указать нужную папку  
   
If Dir(iPath$, vbDirectory) = "" Then  
  'проверку можно не использовать, если Вы уверены в наличии папки  
  'или если она выбрана с использованием диалогового окна  
  MsgBox "Странно, но указанная папка изволит отсутствовать", _  
  vbExclamation + vbSystemModal, "Ошибка пользователя !!!"  
  Exit Sub  
End If  
   
iFileName$ = Dir(iPath$ & "*.xls")  
Do While iFileName$ <> ""  
  If iFileName$ <> ThisWorkbook.Name Then  
     'проверку можно не использовать, если рабочая книга, в которой  
     'находится исполняемый код находится совсем в другой папке  
    With Workbooks.Open(Filename:=iPath$ & iFileName$)  
          'если эта книга всё же находится в указанной папке,  
          'то достаточно Workbooks.Open(FileName:=iFileName$)  
          '  
          'Здесь манипуляции с Вашей рабочей книгой  
          '.Close saveChanges:=True  
     End With  
   End If  
 iFileName$ = Dir  
Loop  
Application.ScreenUpdating = True  
Application.Calculation = xlAutomatic 'xlCalculationAutomatic  
End Sub

{quote}{login=Юрий М}{date=06.07.2012 08:54}{thema=}{post}Sub eee()  
{/post}{/quote}  
Новое имя макроса запатентовал? :-)

{quote}{login=RAN}{date=06.07.2012 09:36}{post}Новое имя макроса запатентовал? :-){/post}{/quote}Просто в модуле, где размещал код, имя qqq УЖЕ было :-)

www тоже  у меня КОЕ-КТО стащил.