Check the name of the control

Is the name Calendar1 ?

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


"parteegolfer" wrote in message
news:parteegolfer.2487rm_1141611901.0418@excelforu m-nospam.com...

I am trying to get a calander to pop up in column (A) using the
following code
But I get an error called " Run Time Error "424". when I Debud it, the
line:
Calendar1.Left = Target.Left + Target.Width - Calendar1.Width is
highlited yellow. I tried to figue it out but can't can anyone help?

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

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


--
parteegolfer
------------------------------------------------------------------------
parteegolfer's Profile: http://www.excelforum.com/member.php...o&userid=31951
View this thread: http://www.excelforum.com/showthread...hreadid=519219