Error in Calendar tool - Compile Error

[Steen]

Hi

I have been changing some thing in excel so that my calendar tool dosent
work any more. I get the error message: "Compile Error - User-defined type
not defined" when I open an emthy sheet and the debugger stops at:

PERSONAL.XLS:

Private Sub Workbook_Open()

=> Dim NewControl As CommandBarControl

' Assign shortcut to display calendar on SHIFT+CTRL+C
Application.OnKey "+^{C}", "Module1.OpenCalendar"
' Add item to shortcut menu on open
On Error Resume Next
Application.CommandBars("Cell").Controls("Insert Date").Delete
On Error GoTo 0
Set NewControl = Application.CommandBars("Cell").Controls.Add
With NewControl
.Caption = "Insert Date"
.OnAction = "Module1.OpenCalendar"
.BeginGroup = True
End With
End Sub

Any suggestions of how to make this work again would be much appriciated?

 

[Jim Rech]

That compile error is consistence with having removed the reference to the
Microsoft Office object. Tools, References in the VBE.

--
Jim
| Hi
|
| I have been changing some thing in excel so that my calendar tool dosent
| work any more. I get the error message: "Compile Error - User-defined type
| not defined" when I open an emthy sheet and the debugger stops at:
|
| PERSONAL.XLS:
|
| Private Sub Workbook_Open()
|
| => Dim NewControl As CommandBarControl
|
| ' Assign shortcut to display calendar on SHIFT+CTRL+C
| Application.OnKey "+^{C}", "Module1.OpenCalendar"
| ' Add item to shortcut menu on open
| On Error Resume Next
| Application.CommandBars("Cell").Controls("Insert Date").Delete
| On Error GoTo 0
| Set NewControl = Application.CommandBars("Cell").Controls.Add
| With NewControl
| .Caption = "Insert Date"
| .OnAction = "Module1.OpenCalendar"
| .BeginGroup = True
| End With
| End Sub
|
| Any suggestions of how to make this work again would be much appriciated?

 

[Steen]

Thanks Jim - works again