Option Explicit
Private Sub CommandButton1_Click()
    Dim ws As Worksheet
    For Each ws In Worksheets
      If ws.Name = "Tabelle3" Then
        On Error Resume Next
            ''''umbennen:
            Sheets("Tabelle3").Name = "Neuer_Name"
            ''''Alternativ --> Tabelle löschen:
            'Sheets("Tabelle3").Delete
        On Error GoTo 0
        End If
    Next
End Sub