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