In diesem Beispiel wird die Schriftart für den Bereich A1:A5 in Sheet1 kursiv formatiert.
Worksheets("Sheet1").Range("A1:A5").Font.Italic = True