In diesem Beispiel wird der Schriftgrad für den Bereich A1:D10 in Sheet1 auf 12 Punkt eingestellt.
With Worksheets("Sheet1").Range("A1:D10") .Value = "Test" .Font.Size = 12 End With