Error with calander

[parteegolfer]

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

[Tom Ogilvy]

http://www.rondebruin.nl/calendar.htm
Use Insert-Object on the Worksheet Menu Bar to place a Calendar control on
your sheet.
It is possible you don't see it in the list, because it is installed with
Access.
So if you don't have that program installed you possible don't have the
control.
You can download it on the website on the bottom of this page if you don't
have it.

Note: If you protect your sheet in Excel 97-2000 then you must format the
range first with
the Date format you want and remove this line ActiveCell.NumberFormat =
"mm/dd/yyyy"
In Excel 2002 and 2003 you be able to protect your worksheet and allow
Format cells.

This code is not working if there are Merged cells in the range.
You can use this : Format>Cells>Alignment Tab ... Center Across Selection


Copy this code in the Worksheet module:
Right click on the sheet tab and choose view code.
Paste the code in there and press Alt-Q to go back to Excel.

--
Regards,
Tom Ogilvy


"parteegolfer" <[email protected]>
wrote in message
news:[email protected]...
>
> 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
>

[Ron de Bruin]

Check the name of the control

Is the name Calendar1 ?

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


"parteegolfer" <[email protected]> wrote in message
news:[email protected]...
>
> 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
>