Today we will learn how to delete a selected Sheet from a Workbook. First we need to traverse all the sheets of the workbook to check whether the sheet with the given name exists in the workbook. If not, then we should throw an error otherwise go ahead and delete the given sheet.
Sub DeleteSheet(VariableSheetName) '----Before deleting any sheet in to workbook we need to make sure that sheet is already there in the work book. Dim SheetExists as Boolean SheetExists = False For Each Sheet In Sheets If Ucase(Sheet.Name ) = Ucase(VariableSheetName) Then SheetExists = True End If Next Sheet If (SheetExists = True) Then '--To disable Excel Warning for deleting any Sheets Application.DisplayAlerts = False Worksheets.delete (VariableSheetName) MsgBox("Selected Sheet is successfully deleted") '---Now Enable the Alerts Application.DisplayAlerts = True Else MsgBox("This Sheet is not there") End Sub