Hi

I update my example
http://www.rondebruin.nl/calendar.htm



--
Regards Ron de Bruin
http://www.rondebruin.nl


"He4Giv" wrote in message ...
Hello:
I have a macro to invoke the calander control when a particular is active or
selected. When I select the cell and the calander control appears I find the
date I want, double click and that date drops in the active cell. the problem
I found is when I inserted the calander control from Insert object pull
down my paste function is greyed out. When I deleted the calander control my
paste function became available.
Here is the code that I have in my spreadsheet:

Private Sub Calendar1_DblClick()
ActiveCell.NumberFormat = "mm/dd/yy"
ActiveCell = Calendar1.Value
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Application.Intersect(Range("A1:A100"), Target) Is Nothing Then
Calendar1.Left = Target.Left + Target.Width - Calendar1.Width
Calendar1.Top = Target.Top + Target.Height
Calendar1.Visible = True
Else: Calendar1.Visible = False
End If
End Sub

any help as to why my paste function is unavailabe (greyed out) when I
insert the calander control?
Thank you
--
He4Giv (Dick)