OK. VB isn't really my thing, I am winging this right now. I took it
out of the worksheet and put it in the workbook but how do I get the
code attached to the button now? Do I us a Call from the worksheet
button event?
On Oct 9, 3:58*pm, TimSpangler <tim.spang...@gmail.com> wrote:
> Will do. *I'll try that and get back to you.
>
> Thanks
>
> On Oct 9, 3:51*pm, Mike H <Mi...@discussions.microsoft.com> 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 attachthe
> > 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 <Mi...@discussions.microsoft.com> 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
|
Similar Threads
