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 349 Downloads 126

'FindSheet', 'Delete', 'Sheet', 'SheetDelete', 'DeleteSheet', 'worksheet', 'application'

ANmarAmdeen
323
Components VBA-Excel
Revisions

v1.0

Needs