Excel VBA: Deleting a worksheet in code

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:
[code language="vb"]
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
Sheets(intPOS).Delete
If booAlerts = False Then Application.DisplayAlerts = True
End If
Next intPOS
End Sub
[/code]