Calendar: Can't find project or library

R

randwnobel

With help from this group some years ago the code, below, was
developed.

But now, having upgraded to Office 2010, I get an error message that
says "Can't find project or library" and I can't figure out what steps
I need to take to resolve. The help suggests I need to do the
following, but I can't even see how to Display the References dialog
box.

Display the References dialog box.
Select the missing reference.
Start the Object Browser.
Use the Browse dialog box to find the missing reference.
Click OK.
Repeat the preceding steps until all missing references are resolved.

This is the code that works for me on the previous Office versions.
Sub Calendar3_Click()
Sheet1.Unprotect
Sheet1.Activate
ActiveCell.Value = Calendar3.Value
ActiveCell.NumberFormat = "d/m/yy"
ActiveCell.Select
Sheet1.Protect
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Cells.Count > 1 Then Exit Sub
If Not Application.Intersect(Range("H2"), Target) Is Nothing Then
Calendar3.Left = Target.Left + Target.Width * 2 -
Calendar3.Width
Calendar3.Top = Target.Top + Target.Height * 7.5
Calendar3.Visible = True
' select Today's date in the Calendar
Calendar3.Value = Date
ElseIf Calendar3.Visible Then Calendar3.Visible = False
End If
End Sub

Rob
 

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Top