Microsoft Office Forums - View Single Post

joatmon · 05-30-2012, 08:23 PM

I figured it out. Here is the code for anyone who might stumble on this:

Code:

Private Sub UserForm_Initialize()
    
    Dim myFont As String
    
    'Set fonts on controls based on version of Excel
    If Application.Version > 12 Then 'this is for Excel 2010
        myFont = "Chiller"
    Else: myFont = "Arial" 'older versions of Excel
    End If
    
    'Set the various controls
    Me.Label1.Font.Name = myFont
    'etc