...Because someone's gotta tell the story...


To return to the main Blog List, click Full Blog Listing.



Excel VBA: Deleting a worksheet in code

Thursday, December 21, 2017 in Technical Articles (Views: 1519)
I wanted to take a moment and share a little VBA in Excel that would delete a worksheet from code. Usually, you would want to use this as a part of a larger routine.

To call the Sub, use this syntax:
DeleteWorksheet "xxx", False
Where xxx represents the name of the worksheet, and False (or True) represents whether or not a confirmation is displayed with the deletion to the user.

Here is the code itself:
Sub DeleteWorksheet(strWorksheet As String, booAlerts As Boolean)
'Deletes a worksheet. Usage: DeleteWorksheet (name of worksheet) (show alerts/prompts"
'Example: DeleteWorksheet "MyWorksheet", False
' will delete a Worksheet called MyWorkSheet if it exists and suppress prompts for the user.
Dim strTempWorksheetName As String
Dim intPOS, intSheets As Long
intSheets = Sheets.Count

For intPOS = intSheets To 1 Step -1
strTempWorksheetName = Sheets(intPOS).Name
If strTempWorksheetName = strWorksheet Then
If booAlerts = False Then Application.DisplayAlerts = False
If booAlerts = False Then Application.DisplayAlerts = True
End If
Next intPOS
End Sub


Related Blogs You May Be Interested In:

To leave a comment, please log in and/or register.