Hi Jim

I think that you changed it to 85 after you insert the control

Delete the control
Set zoom to 85 if it is different
insert object to add the control




--

Regards Ron de Bruin
http://www.rondebruin.nl/tips.htm


"JMay" wrote in message ...
Ron:
As a matter of fact, YES -- I need 85% to see all my stuff (10 columns)
at one glance. Is this a problem? I found your code on google --it's
great,,
Jim

"Ron de Bruin" wrote in message
:

Hi JMay

Do you change the zoom of the worksheet ?

--

Regards Ron de Bruin
http://www.rondebruin.nl/tips.htm


"JMay" wrote in message ...
The below code (supplied by Ron de Bruin) is working fine, except for
the following:

When in Design Mode I see the Full month Calendar (Sunday - Saturday),
but
When I exit out of Design mode and click on cell B10 say, I only see
Sunday thru Friday (Saturday is truncated). I've tried back in Design
mode
Increasing the width, but without success. How can I modify to be able
To view the fully needed width?

TIA,
Jim May


Private Sub Worksheet_SelectionChange(ByVal Target As Range)
' Data starts on Row 7
If Target.Row = 6 Then
Select Case Target.Column
Case 2 'applies to Column B
Calendar7.Left = Target.Left + Target.Width -
Calendar7.Width
Calendar7.Top = Target.Top + Target.Height
Calendar7.Visible = True
Case Else: If Calendar7.Visible Then Calendar7.Visible = False
End Select
Else: If Calendar7.Visible Then Calendar7.Visible = False
End If
End Sub