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

SheetName, Optional WkNa

Views 2300 Downloads 861


ANmarAmdeen
612
Components VBA-Excel
Revisions

v2.0

Needs