Calandar

Try to delete the object and insert a new one
(be sure that the name is also Calendar1)

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


"Oldjay" <Oldjay@discussions.microsoft.com> wrote in message news:552EC340-506D-47B4-B53E-1DC896B3F66F@microsoft.com...
> More explaination - This is the code I am using
>
> 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("form!C47:C48"), 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
>
>
>
> "Oldjay" wrote:
>
>> I have a popup calandar that all of a sudden doesn't show any dates. I can
>> click on a blank date block (knowing what date it is by its location on the
>> calandar) and it will put the correct date in the selected cell
>>
>> I have not done any revisions to the workbook.
>>
>> oldjay

I dont know how to delete an object

"Ron de Bruin" wrote:

> Try to delete the object and insert a new one
> (be sure that the name is also Calendar1)
>
> --
> Regards Ron de Bruin
> http://www.rondebruin.nl
>
>
> "Oldjay" <Oldjay@discussions.microsoft.com> wrote in message news:552EC340-506D-47B4-B53E-1DC896B3F66F@microsoft.com...
> > More explaination - This is the code I am using
> >
> > 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("form!C47:C48"), 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
> >
> >
> >
> > "Oldjay" wrote:
> >
> >> I have a popup calandar that all of a sudden doesn't show any dates. I can
> >> click on a blank date block (knowing what date it is by its location on the
> >> calandar) and it will put the correct date in the selected cell
> >>
> >> I have not done any revisions to the workbook.
> >>
> >> oldjay
>
>
>

When you are in Edit mode (open the control toolbox toolbar and press the first button)
Select the control and press delete

Then insert a new one and see if this help


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


"Oldjay" <Oldjay@discussions.microsoft.com> wrote in message news:C6B1AE19-C0C3-43DE-A206-532B401EBDB7@microsoft.com...
>I dont know how to delete an object
>
> "Ron de Bruin" wrote:
>
>> Try to delete the object and insert a new one
>> (be sure that the name is also Calendar1)
>>
>> --
>> Regards Ron de Bruin
>> http://www.rondebruin.nl
>>
>>
>> "Oldjay" <Oldjay@discussions.microsoft.com> wrote in message news:552EC340-506D-47B4-B53E-1DC896B3F66F@microsoft.com...
>> > More explaination - This is the code I am using
>> >
>> > 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("form!C47:C48"), 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
>> >
>> >
>> >
>> > "Oldjay" wrote:
>> >
>> >> I have a popup calandar that all of a sudden doesn't show any dates. I can
>> >> click on a blank date block (knowing what date it is by its location on the
>> >> calandar) and it will put the correct date in the selected cell
>> >>
>> >> I have not done any revisions to the workbook.
>> >>
>> >> oldjay
>>
>>
>>