Popup Calendar gets smaller every use

[leaning]

Hello.

For the attached, I change the date on Sheet 5a using the popup calendar, then I save the workbook.
I keep doing this over and over (open-change date-save-close workbook).
With every open/use, the calendar gets smaller until the dates become unreadable.
The other sheet has the calendar the right size.
Any idea what is going on to cause this?

Here is a link to someone else who noticed the same problem: http://www.access-programmers.co.uk/...d.php?t=172989

I appreciate any help!

VR/Lost

[antoka05]

You could change your code adding the lines shown in bold:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Target.Cells.Count > 1 Then Exit Sub
    If Not Application.Intersect(Range("c2,c17,c21,c23,c26,c29,c32,c35,c38"), Target) Is Nothing Then
        Calendar1.Left = Target.Left + Target.Width - Calendar1.Width
        Calendar1.Top = Target.Top + Target.Height
        Calendar1.Width = 190
        Calendar1.Height = 115
        Calendar1.Visible = True
        If Not IsDate(Target.Value) Then
            Calendar1.Value = Date
        Else
            Calendar1.Value = Target.Value
        End If
    ElseIf Calendar1.Visible Then Calendar1.Visible = False
    End If
End Sub

[leaning]

Antoka05,

Worked like a charm! Thanks!

VR/Lost

[Spammin]

I can't get this to work for the life of me! lol