Hi, I am working on an existing vba script - the shapes are currently uniform & the existing script is as follows:
Select Case sRAG
Case "R", "Red"
Selection.ShapeRange.ShapeStyle = msoShapeStylePreset38
Selection.ShapeRange.Fill.ForeColor.RGB = RGB(255, 0, 0)...