Your other thread is closed but I have another suggestion for you. You can use a Control Array, this will save time as well as memory.

If you create an Array of 240, you can use the following code to change each of their colours.
For I = Shape1.LBound To Shape1.UBound
    Shape1(I).BackColor = vbBlue
Next I