Calandar

[Guest]

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

 

[Guest]

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

 

[Ron de Bruin]

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

 

[Guest]

I dont know how to delete an object

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

 

[Ron de Bruin]

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