SheetDelete_ANmar

Deletes a sheet from a workbook, checks it is already there first

CodeFunctionName

What is this?

Public

Tested

Original Work

Sub SheetDelete_ANmar(SheetName, Optional WkNa = "This")
If WkNa = "This" Then WkNa = ThisWorkbook.Name
If FindSheet(SheetName, WkNa) Then
Application.DisplayAlerts=False
Workbooks(WkNa).Worksheets(SheetName).Delete
Application.DisplayAlerts=True
End If
End Sub

SheetName, Optional WkNa