Sub sheets_save() Dim シート As Worksheet For Each シート In Worksheets If シート.Name <> "Sheet6" Then シート.Copy ActiveWorkbook.SaveAs ThisWorkbook.Path & "\" & シート.Name ActiveWorkbook.Close End If Next シート End Sub \は円マーク