Pode ser assim:

Public Sub DeletarPlan()

    Const cPLAN As String = "Plan1"
    
    Dim wkb As Workbook
    Dim wks As Worksheet
    
    Application.DisplayAlerts = False
    
    Set wkb = ThisWorkbook
    
    For Each wks In wkb.Worksheets
        If wks.Name = cPLAN Then
            wks.Delete
        End If
    Next wks

    Set wks = Nothing
    Set wkb = Nothing
    
    Application.DisplayAlerts = True

End Sub

marcosta,

Boa Tarde!

Veja e é assim.

Ou assim:

Public Sub DeletarPlan_01()

    Const cPLAN As String = "Plan1"
    
    Dim wkb As Workbook
    
    Application.DisplayAlerts = False
    
    Set wkb = ThisWorkbook
    
    On Error Resume Next
    wkb.Worksheets(cPLAN).Delete
    
    Set wkb = Nothing
    
    Application.DisplayAlerts = True

End Sub

Nelson,

Funcionou perfeitamente,

Obrigado.