Calendar control font size

R

Rob

I have included a calendar control on a spreadsheet and for an unknown
reason the numbers are so small they are completely illegible.
Does anyone know how to correct this?

The code used is....

Private Sub Calendar1_Click()
Sheet4.Unprotect
Range("G1").Value = CDbl(Calendar1.Value)
ActiveCell.NumberFormat = "D/M/YY"
Range("K1") = 1
ActiveCell.Select
If Range("K1") = 1 Then
Calendar1.Visible = False
Range("G2").Select
End If
Sheet1.Protect
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Sheet4.Unprotect
If Application.Intersect(Range("G1"), Target) Is Nothing Then GoTo
ExitSub
If Target.Cells.Count > 1 Then
ExitSub:
If Calendar1.Visible Then Calendar1.Visible = False
Sheet4.Protect
Exit Sub
End If
Range("K1") = 0
Calendar1.Visible = True
'select Today's date in the Calendar
Calendar1.Value = Date
Sheet1.Protect
End Sub

Rob
 

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Similar Threads

Run-time error 1004: Unable to set the left property of the OLEObject class 0
pop up calender 0
Calendar resize 0
Macro error when worksheet is protected 2
calendar control in 3 columns 2
Calendar control 2
Calendar control code 4
ActiveX Controls 0

Top