Size Property Example

This example sets the font size for cells A1:D10 on Sheet1 to 12 points.

With Worksheets("Sheet1").Range("A1:D10")
    .Value = "Test"
    .Font.Size = 12
End With