VBA 特定シートだけ残して他のシート一括削除

特定シートだけ残して他のシート一括削除

Sub test()

    ' 特定シートだけ残して他のシート一括削除
    
    Dim mySheets As Worksheet
    
    For Each mySheets In Worksheets
        If mySheets.Name <> "オリジナル" Then

　　　　　’　警告メッセージを表示させない
            Application.DisplayAlerts = False
                mySheets.Delete
            Application.DisplayAlerts = True
        End If
    Next

End Sub

― ― ― ― ― ― ― ― ― ― → Excel VBA基礎入門もくじ へ戻る 

関連記事

『VBA シート追加・削除』