Сохраняет все активные листы в разные файлы xls

saveAllSheetstoFiles.vba

Sub SaveSheets()
    Dim s As Worksheet
    Dim wb As Workbook
    Set wb = ActiveWorkbook
    For Each s In wb.Worksheets
        s.Copy
        ActiveWorkbook.SaveAs Filename:=wb.Path & "\" & s.Name, FileFormat:=xlExcel8
    Next
End Sub