VBA to delete sheet from Workbook – With specific name

You can delete a Sheet with a specific Display name by using Sheets("SheetNameToBeDeleted").Delete .
If you simply use the above statement and just in case, sheet with such a specific display name is not available in that workbook, then it will throw an exception.
To overcome this problem and throw a proper error message, you should first check if there is any Sheet with a given specific names exists. If, it exists then delete else you can throw an error message to the user.

Excel VBA to check – if a given Sheet Exists in Workbook

In the below function, all you need to pass is the name of your WorkSheet, which you want to check. This function will return a Boolean – True or False as a result.

Function DoesSheetExists(SheetX) As Boolean
    Dim SheetExists As Boolean
    DoesSheetExists = False
    For Each Sheet In Sheets
        If UCase(Sheet.name) = UCase(SheetX) Then
            DoesSheetExists = True
            Exit Function
        End If
    Next Sheet
End Function

Now you can call this function to know whether Sheet X exists.
Now here is the actual code which will delete the specific Sheet where I have used the above function.

Sub DeleteSheetX()
    On Error GoTo err
    Application.DisplayAlerts = False
	'Call the DoesSheetExists function to check if sheets exists
    If (DoesSheetExists("MySheetNameToDelete") = True) Then
        Worksheets("MySheetNameToDelete").Delete
        MsgBox ("Selected Sheet is successfully deleted")
    Else
        MsgBox ("This Sheet does not exists")
    End If
err:
    Application.DisplayAlerts = True
End Sub

VBA to delete multiple Sheets at once

Sheets(Array(….)).Delete can be used to delete multiple sheets using once statement.
All you need to use an Array keyword and provide the names of all the sheets you want to delete.
Example:
Sheets(Array("Sheet1","Sheet2", "Sheet3")).Delete = This will delete Sheet1, Sheet2 and Sheet3
Sheets(Array(1,2,3)).Delete = This will delete 1st, second and 3rd Sheets of the workbook.

Sub DeleteArrayOfSheets()
    On Error GoTo err
    Application.DisplayAlerts = False
    Sheets(Array("Sheet1", "Sheet2", "Sheet3")).Delete
err:
    Application.DisplayAlerts = True
End Sub

Note: If any one of the Sheets which are mentioned in the array, does not exist then, it will throw an error and none of the sheets will be deleted – even if other sheets were existing.

VBA to Delete Sheet without Warning Message

In excel, as soon as you try to delete a sheet, there is an inbuilt warning message which is popped up to confirm, if you really want to delete the sheet.
You definately do not want to see that popup – every time when your VBA code is running and trying to delete a sheet. Once the popup appears, VBA execution will wait untill you manually confirm the popup.

VBA to disable Delete confirmation Alert popup

It is simple to supress this confimation popup through Excel VBA. All you need to do is execute this statement Application.DisplayAlerts=False.
This is the reason, in all the above codes, if you notice, I have used this statement to suppress this delete confimation alert popup.
Do not forget to set it to true at the end of the function. If you fail to do so, then even when you try to delete a sheet manually, then also you would not receive this confirmation popup – which you may do not want.