Trouble with Event Procedure

[Dan15]

I am trying to open and close some custom menus - when I run the following, I get the error message below:

Private Sub Workbook_BeforeClose()
Application.Toolbar("Test&quot.Delete
End Sub

Compile Error:

Procedure Delcaration does not match description of event or procedure having the same name

What does this mean?

Thanks-
-Dan

 

[xlbo]

Generally means you have 2 subs of the same name in the same module. Check your "Thisworkbook" module for all the subs in there. There's probably an empty Before_Close sub lying around. Just delete the text of the empty one and you should be fine Rgds
Geoff
"Some cause happiness wherever they go; others whenever they go."
-Oscar Wilde

 

[Zathras]

It means you fiddled a part of the code you shouldn't have.

The format for workbook close event handler is

  Private Sub Workbook_BeforeClose(Cancel As Boolean)

  End Sub

Somewhere along the line you erased the parameter. You must leave it there. But you don't have to use it.

 

[Dan15]

OK, now it doesn't like the line telling the toolbar to close. What is the correct coding? I would like to open 4 different custom menus at when the workbook is opened, then close them with the workbook.

 

[RobBroekhuis]

Use Toolbars (the collection), not Toolbar.
Rob

 

[Dan15]

I don't understand - making Toolbar plural doesn't seem to change anything

 

[RobBroekhuis]

I'm sorry - that should be Commandbars not Toolbars.
Rob

 

[Dan15]

OK, but what is the actual code please?

Thanks-

 

[RobBroekhuis]

Application.Commandbars("Test&quot.Delete

that assumes, of course, that you have a commandbar named "Test", otherwise you'll get an index out of range error. If you're not sure the toolbar will always be there, you can put
on error resume next
right before the delete statement to avoid the error message.

Rob

 

[Dan15]

Sorry, I was actually looking to just open and close the toolbar -
Application.CommandBars("Test&quot.Visible = True

Easy enough, thank you for the help anyway-

-Dan