HELP: Refuse To Delete Macro applied to all open workbooks

[lhaenney]

I need help. I accidentally applied the RefuseToDelete Macro I saw online to all open workbooks. Now, I cannot delete any sheets of any excel file I have.

The code I use is: (from this forum. CLICK ME).

Private Sub Worksheet_Deactivate()
Dim CB As CommandBar
Dim Ctrl As CommandBarControl
For Each CB In Application.CommandBars
Set Ctrl = CB.FindControl(ID:=847, recursive:=True)
If Not Ctrl Is Nothing Then Ctrl.OnAction = ""
Next
End Sub

How will I remove this so my Excel will return to normal. I also attached the file where I am suppose to use the code to

Thanks,
Linrose