Calendar control gradually gets bigger!

[wpryan]

Hi All,

I stumbled across this code to incorporate a pop-up calendar in a form I have developed. However the calendar dimensions (height and width) gradually get bigger and bigger (meaning, that as I continue to use the form, each time I open it it seems to be bigger than the time before), and eventually I have to go into design mode to force it to go to a more reasonable size. Is there any way to force it to stay in the same size? Thanks in advance, the code is below.


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

 

[TAPS_MikeDion]

Have you tried removing these lines?

Calendar1.Left = Target.Left + Target.Width - Calendar1.Width
Calendar1.Top = Target.Top + Target.Height

You can just add ' (the remark symbol) in front of them so you won't have to delete the code.