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
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