Will do. I'll try that and get back to you.

Thanks


On Oct 9, 3:51*pm, Mike H wrote:
Hi,

I can replicate this if the code is in a worksheet module.

Put the sub in a general module and don't declare as private and attach the
code to your button and things should be fine.

Mike



"TimSpangler" wrote:
This is what I have in the button code:

' Sub to delete the current braced wall line
Private Sub CmdBtn_DELBWL_Click()

* * Application.DisplayAlerts = False
* * If ActiveSheet.Name = "MASTER" Then
* * * * MsgBox "MASTER Sheet can not be deleted", vbCritical, "BWL
Sheet Delete Error!"
* * Else
* * * * ActiveSheet.Delete
* * * * Application.DisplayAlerts = True
* * End If

End Sub

And when the button is selected I get this:

Run-time error '-2147221080 (800401a8)':

Automation Error

On Oct 9, 3:09 pm, Mike H wrote:
Hi,

That wouldn't cause an automation error, the sheet & button are deleted.
What else do you have in the module, post the code.

Mike

"TimSpangler" wrote:
When I try to delete the active sheet with a button that I have on the
sheet I get an automation error. *I assume it is because the button is
firing the event and I am trying to delete the sheet that the button
is on.

Is there a way to do this? *Any help would be appreciated

Thanks

TIM