Das folgende Excel VBA Makro ermöglicht uns ein bestimmtes Worksheet (Tabellenblatt) zu löschen. Das Makro fragt den Namen, des Tabellenblatts, welches entfernt werden soll, ab. Zur Sicherheit wird dann noch einmal nachgefragt, ob das angegebene Tabellenblatt wirklich gelöscht werden soll. Erst wenn wir diese Abfrage bestätigen ist das Tabellenblatt entfernt.

Sub Tabellenblatt_entfernen()
Dim WS As Worksheet
Dim Hinweis As Byte
Dim StrName As String
StrName = InputBox("Geben Sie den Tabellennamen ein, welchen Sie löschen wollen." _
& Chr(13) & "Achten Sie auf Gross- und Kleinschreibung!")
For Each WS In Worksheets
    If WS.Name = StrName Then
        Hinweis = MsgBox("Möchten Sie das Tabellenblatt " & StrName _
        & " wirklich löschen?", 1, "Achtung")
        If Hinweis = 1 Then
            Application.DisplayAlerts = False
            Worksheets(StrName).Delete
            Application.DisplayAlerts = True
        Else
            Exit Sub
        End If
    End If
Next WS
End Sub

Wichtiger Hinweis: Bei Eingabe des Tabellenblattnamens muss auf Gross- und Kleinschreibung geachtet werden. Möchte man das nicht, so muss oben im Makroeditor Option Compare Text eingetragen werden!