シート名が●で始まっているもの以外を削除

１　原義シート（ひな型シート）以外を削除

　残したい原義シート（ひな型シート）やマスターシートには、そのシート名に●をつけておき、他の作業シートを削除する。

２　コード

Option Explicit
Sub シート名が●で始まらないものを削除()
    Application.ScreenUpdating = False
    If MsgBox("削除前に上書き保存しておきますか", vbYesNo, "削除前の確認") = vbYes Then
        ThisWorkbook.Save
        MsgBox "シート削除前に、上書き保存完了"
    End If
    
    Dim ws As Worksheet
    For Each ws In Sheets
        If ws.Name Like "●*" Then
            '何もしない（削除しない）
        Else
            Application.DisplayAlerts = False
            ws.Delete
            Application.DisplayAlerts = True
        End If
    Next
    MsgBox "シート削除完了" & vbNewLine & "誤って削除した場合は保存せずに閉じてください。"
End Sub

３　元ネタ

sugoikaizen.com