In diesem Beispiel wird der Innenbereich von Zelle A1 in Sheet1 mit einer Kreuzschraffur formatiert.
Worksheets("Sheet1").Range("A1"). _ Interior.Pattern = xlPatternCrissCross