Sub xx() On Error GoTo xxx ph = ThisWorkbook.Path & "\" For i = 1 To Sheets.Count fn = Sheets(i).Name & ".xlsx" Sheets(i).Copy ActiveWorkbook.Close 1, ph & fn Nextxxx: ActiveWorkbook.Close FalseEnd Sub
