SheetDelete_ANmar

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

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

Parameters

SheetName, Optional WkNa

Views 62 Downloads 17

Perm link