Delete Worksheet

Sub dlt_Sheet()
    Dim ws As Worksheet
         On Error Resume Next
    Application.DisplayAlerts = False
    ThisWorkbook.Worksheets("Sheet1").Delete
    Application.DisplayAlerts = True
    On Error GoTo 0   
End Sub