Returns or sets a theme color pattern for an Interior object. Read/write Variant.
Syntax
expression.PatternThemeColor
expression A variable that represents an Interior object.
Examples
The following example sets the color of the interior pattern for Range A1:D4 one on Sheet1
With Worksheets("Sheet1").Range("A1:D4").Interior
.Pattern = xlGrid
.PatternThemeColor = 2
End With