I am using Excel VBA. I added a calendar control so that users can pick the date from the calendar. I noticed that if I inserted a new row the Calendar pop up shrinks/disappears. I can fix this by going to the Developer tab, then select Design Mode. The grips for the calendar show up, and I have to stretch them to make the calendar visible again. Seems like this is a glitch? Annoying. Is there a way to keep the calendar a specific size when the user clicks the specific cells? (any cell in Col.C, Col.H, and Col.J)

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Calendar1.Visible Then Calendar1.Visible = False
If Not Intersect(Target, Range("C:C, H:H, J:J")) Is Nothing Then
Calendar1.Left = Target.Left + Target.Width
Calendar1.Top = Target.Top + Target.Height
Calendar1.Visible = True
Calendar1.Value = Date
End If
End Sub


Private Sub Calendar1_Click()
ActiveCell = Calendar1.Value
Calendar1.Visible = False
ActiveCell.Select
End Sub