vba for excel

Sub Group_Task()
‘Файл за групова обработка
ChDir ThisWorkbook.Path
Workbooks.Open "File1" ‘отваря файл
Workbooks("File1").Activate
‘изпълнява макрос от File1
‘.
‘.
‘изпълнява макрос от File1
With ActiveWorkbook ‘затваря файл
    .Save
    .Close
End With
Workbooks.Open "File2" ‘отваря файл
Workbooks("File2").Activate
‘изпълнява макрос от File2
‘.
‘.
‘изпълнява макрос от File2
With ActiveWorkbook ‘затваря файл
    .Save
    .Close
End With
.
End Sub