How do you set the font size using VBA?

[razzandy]

I’ve written the below code but I need to have the font size set to 8 point, can anybody me out?

Private Sub ComboBox3_Change()
Worksheets("Schedule").PageSetup.LeftHeader = ComboBox3.Column(0) _
& Chr(10) & ComboBox3.Column(1) & Chr(10) & ComboBox3.Column(2) _
& Chr(10) & ComboBox3.Column(3) & Chr(10) & ComboBox3.Column(4) _
& Chr(10) & ComboBox3.Column(5)
End Sub

Thanks in advance

Ryan UK :wink:

 

[Andrew Poulsom]

Font size 8:

'Worksheets("Schedule").PageSetup.LeftHeader = "&8" & ComboBox3.Column(0).............

The macro recorder is good for finding out about print headers and footers.

 

[Joe Was]

Sub myFont()
'
With Selection.Font
.Name = "Arial"
.Size = 12
.ColorIndex = xlAutomatic
End With
End Sub

And just for "size."

Selection.Font.Size = 12

Hope this helps. JSW