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.
Code:For I = Shape1.LBound To Shape1.UBound Shape1(I).BackColor = vbBlue Next I