Take this code:
With ActiveSheet.Shapes.AddShape(msoShapeRectangle, x, y, w, h).TextFrame .Parent.Line.Visible = False .Parent.Fill.ForeColor.RGB = RGB(r
False evaluates to Zero. You can construct an integer variable to equate to zero and have it turn out the same way as False.