Unable to Run Code on Specific workbook
 

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

Unable to Run Code on Specific workbook
 

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

Unable to Run Code on Specific workbook
 

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

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