PatternColor Property

Returns or sets the color of the interior pattern as an RGB value. Read/write Variant.

Example

This example sets the color of the interior pattern for rectangle one on Sheet1.

With Worksheets("Sheet1").Rectangles(1).Interior
    .Pattern = xlGrid
    .PatternColor = RGB(255,0,0)
End With