Hi,

I have the following code for a pop up calender

Private Sub Calendar1_Click()
ActiveCell.Value = CDbl(Calendar1.Value)
ActiveCell.NumberFormat = "dd/mm/yyyy"
ActiveCell.Select
If Calendar1.Value Then
Calendar1.Visible = False
End If

End Sub


Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Cells.Count 1 Then Exit Sub
If Not Application.Intersect(Range("A4:A52052"), Target) Is Nothing Then
Calendar1.Top = Target.Left + Target.Width
Calendar1.Top = Target.Top + Target.Height
Calendar1.Visible = True
Calendar1.Value = Date
ElseIf Calendar1.Visible Then Calendar1.Visible = False
End If


End Sub

Which works fine until I try to Share the work book then a runtime error
occurs.

Any help would be appreciated,

Thanks,

Gav.

If you mean "Share" as setting the workbook as "Shared" and putting it on a
common drive for others to share, macros will not run in a shared workbook.
If you mean to send the file or just put it on a common drive without
setting it for "Shared", then the user may be missing the mscal.ocx file.
Read this link on the Calendar file:
http://www.fontstuff.com/mailbag/qvba01.htm

Mike F
"Gav123" wrote in message
...
Hi,

I have the following code for a pop up calender

Private Sub Calendar1_Click()
ActiveCell.Value = CDbl(Calendar1.Value)
ActiveCell.NumberFormat = "dd/mm/yyyy"
ActiveCell.Select
If Calendar1.Value Then
Calendar1.Visible = False
End If

End Sub


Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Cells.Count 1 Then Exit Sub
If Not Application.Intersect(Range("A4:A52052"), Target) Is Nothing
Then
Calendar1.Top = Target.Left + Target.Width
Calendar1.Top = Target.Top + Target.Height
Calendar1.Visible = True
Calendar1.Value = Date
ElseIf Calendar1.Visible Then Calendar1.Visible = False
End If


End Sub

Which works fine until I try to Share the work book then a runtime error
occurs.

Any help would be appreciated,

Thanks,

Gav.