Custom Menu
Hey guys I have a menu on the menu bar at the top of excel
called "Reports". Its right after the menu item "Help" at
the top. When you click on Reports, a drop down menu
comes out and in that meru is an item called "Uninstall"
Below is my code that creates it.
Here is my code...
With ctrlPopUp
Set ctrlButtonA = .Controls.Add
(Type:=msoControlButton, ID:=1)
ctrlButtonA.Caption = "Uninstall"
ctrlButtonA.Style = msoButtonCaption
End With
ctrlButtonA.OnAction = Workbooks("Report3").Close
When I click on Uninstall, I want it to close the workbook
called "Report3.xls".
However when I try to code this in the onaction part of my
code, I get the error message: "Expected Function or
Variable" and it highlights the .Close on the last line of
my code (above).
I need to be able to hardcode this into the code. I do
not want to create a module and have this code in it and
then reference this code in the onaction. I need to have
the close workbook "Report3.xls" hardcoded in the
Uninstall menu item click.
How do I do this?
Thank you
Todd Huttenstine
|