Calendar Help

[RBrown]

I have a form that includes an Excel calendar. The form was originally created with Excel 97 but I have updated to Excel 2003 and now my calendar won't operate. I get a "compile error / Automation error"

This is my formula to load the calendar, maybe something is wrong with it.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect(Target, [U7:W7]) Is Nothing Then
frmCalendar1.Left = Target.Left + (Target.Width * 1.1)
frmCalendar1.Top = Target.Top
frmCalendar1.Show

End If
If Not Intersect(Target, [O7:Q7]) Is Nothing Then
frmCalendar2.Left = Target.Left + (Target.Width * 1.1)
frmCalendar2.Top = Target.Top
frmCalendar2.Show
End If
If Target.Address = "$B$48:$W$48" Then
If Range("B47").Value > ("***") Then
x = MsgBox("Do You Require More Space For Claim Story", vbYesNo + vbQuestion)
If x = 6 Then
MsgBox "Complete Claim Story On Page Two", vbOKOnly
Range("V1").Value = "2"
End If
End If
End If
End Sub

 

[Glaswegian]

Hello

Have you checked that there is a reference to the Calendar library? In Excel 2002 it's version 10 - probably the same for 2003. The actual file name is mscal.ocx and it should be in C:\Windows\System32. It should be installed with Windows but then again...

Try Martin Green's site for a copy.

HTH

Regards