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
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 4,100
Downloads 1,387
CodeID
DB ID