I've never experienced anything like this, but how about just placing the
calendar where you want it each time the workbook opens.

Option Explicit
Sub auto_open()

Dim myCC As OLEObject
Dim myRng As Range

With Worksheets("Sheet1")
Set myCC = .OLEObjects("calendar1")
Set myRng = .Range("b3:c9")
myCC.Top = myRng.Top
myCC.Left = myRng.Left
myCC.Width = myRng.Width
myCC.Height = myRng.Height
End With

End Sub

(Or resize it or whatever you need to do)

Mike Rogers wrote:

xl2k
I have a worksheet that I have placed the calendar control 9.0. I have vba
that calls the calendar and hides it after the date is selected. Everything
about the worksheet works great! The problem that I am having is that
everytime the worksheet is opened the calendar is a tinny bit smaller. So
after it is opened and closed a number of times it is so small and distorted
that you can not read the dates. So I have to go into design mode and resize
it larger and save it. Then it starts all over again, and starts getting
smallereverytime it is opened . Any ideas?????

Mike Rogers

--

Dave Peterson