Pattern Property Example

This example adds a crisscross pattern to the interior of cell A1 on Sheet1.

Worksheets("Sheet1").Range("A1"). _
    Interior.Pattern = xlPatternCrissCross