Ah,
You are fallen in to typical infinite loop. I wish If you had avoided this as per suggestion. Do while is not the best way to get your head around a loop.
The reason for infinite loop is because the condition Loop Until ActiveCell = BarDiameter + BottomRow.
will not be true.
The code knows the entry point but as the condition for exit is not set correctly, it will go around a circle trying to find the exit door. When it consumes all your CPU, it will crash- it is forced landing. Please use for loop which has an entry and exit point.
My internet connection is extremely slow and so might not respond until tomorrow.
Bookmarks