Error in Personal.xls - calendar
 

Hi all

I have just got a new computer and have moved my Personal.xls file to it. It
works ok, but now I got an error in the calander tool in Personal.xls:

Private Sub Workbook_Open()
= Dim NewControl As CommandBarControl ;THIS IS WHERE THE DEBUGGE STOPS

' 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

Can anyone give me some advise of what to do to eliminate this error?

/Steen

Error in Personal.xls - calendar
 

Open your workbook
Go to the VBE
Select your workbook's project
Tools|References
Make su "Microsoft Office xx.0 Object Library" is checked

Stee n wrote:

Hi all

I have just got a new computer and have moved my Personal.xls file to it. It
works ok, but now I got an error in the calander tool in Personal.xls:

Private Sub Workbook_Open()
= Dim NewControl As CommandBarControl ;THIS IS WHERE THE DEBUGGE STOPS

' 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

Can anyone give me some advise of what to do to eliminate this error?

/Steen

--

Dave Peterson