Sub lisichka2009()\nApplication.ScreenUpdating = False\nApplication.DisplayAlerts = False\n\nSet shablon = ThisWorkbook.Sheets("Shablon")\n\nDim sName As String\n\nsName = Dir("c:\\!!\\*.xls")\n\nDo While sName <> ""\nSet target = Workbooks.Open(Filename:="c:\\!!\\" & sName, ReadOnly:=False)\nshablon.Copy after:=target.Sheets(ActiveWorkbook.Sheets.Count)\nApplication.StatusBar = " Working On File " & sName \' визуализация работы\ntarget.SaveAs "c:\\!!\\" & sName\ntarget.Close\nsName = Dir\nLoop\n\nApplication.StatusBar = False \'сбрасываем визуализацию работы\nApplication.DisplayAlerts = True\nApplication.ScreenUpdating = True\nEnd Sub\n\n