Unable to Run Code on Specific workbook
I was mistaken in the previous post.
The Microsoft Office Object Library that Chip mentioned, did not have a
check mark next to it. I added the check mark and the code seems to run with
no problems.
Thanks a lot Chip! Great forum with very smart people.
Thanks again!
Renato
"Renato" wrote:
It looks like the whole references & additional controls menu items are
missing (they appear but are dimmed).
Is there any way to add them back in this workbook?
"Chip Pearson" wrote:
Ensure that you have a reference (VBA Tools menu, References) to
"Microsoft Office Object Library" and that no reference is marked
"MISSING".
"Renato" wrote in message
...
I got some great help here last night, so I thought I'd try
again. I'm
creating a custom menu for a 29 worksheet template. I can run
the following
code on new workbooks, but I can run it on the one that I need,
the template.
Sub Auto_Open()
Dim HelpIndex As Integer
Dim NewMenu As CommandBarPopup
' Get Index of Help menu
HelpIndex = CommandBars(1).Controls("Help").Index
' Create the control
Set NewMenu = CommandBars(1) _
.Controls.Add(Type:=msoControlPopup, _
Befo=HelpIndex, Temporary:=True)
' Add a caption
NewMenu.Caption = "&Custom Menu"
End Sub
I get the following error:
Compile error:
User-Defined Type Not Defined
And it highlights the following line:
NewMenu As CommandBarPopup
Does anyone have any idea of why it doesn't work on this
particluar workbook?
Any comments are appreciated.
Renato
|