Sub sheets_save()

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

\は円マーク