I used macro recorder to get code that will fill the shapes I want with the color I want. However, I am struggling with how to get it to trigger with a checkbox. I need the code below to activate when the box is checked, but then reverse when the box is unchecked.
Code:
Sub ShapeFill()
'
' ShapeFill Macro
'
'
ActiveSheet.Shapes.Range(Array("Rectangle 1")).Select
ActiveSheet.Shapes.Range(Array("Rectangle 1", "Rectangle 61")).Select
ActiveSheet.Shapes.Range(Array("Rectangle 1", "Rectangle 61", "Rectangle 62" _
)).Select
With Selection.ShapeRange.Fill
.Visible = msoTrue
.ForeColor.ObjectThemeColor = msoThemeColorBackground1
.ForeColor.TintAndShade = 0
.ForeColor.Brightness = 0
.Transparency = 0
.Solid
End With
End Sub