How to delete specific sheet if exists in workbook?
How could you delete a specific worksheet if it exists within a workbook? Normally, you need to find and check it if exists, and then delete it manually. Here, I will talk about an easy way to delete the specified worksheet directly if it exists in the Excel file.
Recommended Excel Productivity Tools
The following VBA code can help you to delete the specified worksheet if it exists in the workbook, please do as this:
1. Hold down the ALT + F11 keys to open the Microsoft Visual Basic for Applications window.
2. Click Insert > Module, and paste the following code in the Module Window.
VBA code: Delete a specific worksheet if exists in workbook
Sub Test() 'Updateby Extendoffice 20160922 Dim xWs As Worksheet Dim sheetName As String sheetName = Application.InputBox("Input Sheet Name:", "Kutools for Excel", _ "sheet1", , , , , 2) Application.DisplayAlerts = False Err.Clear On Error Resume Next Set xWs = Sheets(sheetName) If Err <> 0 Then MsgBox "The'" & sheetName & "'" & "does not exist!", vbInformation, "Kutools for Excel" Exit Sub Else xWs.Delete MsgBox "The'" & sheetName & "'" & "has been deleted!", vbInformation, "Kutools for Excel" End If Application.DisplayAlerts = True End Sub
3. Then press F5 key to run this code, a prompt box is displayed to remind you type the sheet name that you want to check if exist, see screenshot:
4. And then click OK button:
(1.) If the sheet exists, it will be delete at once, see screenshot:
(2.) If the sheet does not exist, a prompt box will pop out to remind you as following screenshot shown: