ПРИВЕТ ВОЗНИКЛИ ПРОБЛЕМЫ ПРИ ИЗУЧЕНИИ VBA

КОРОЧЕ НУЖНО ОТОБРАЗИТЬ НЕ КОНЕЧНЫЙ РЕЗУЛЬТАТ ВЫПОЛНЕНИЯ ПРОГРАММЫ(МАКРОСА)
ВОТ КОД:
Sub WWW()

Set myDocument = Sheets("111")

For p = 1 To 250
Set myShape = myDocument.Shapes.AddShape(msoShapeOval, _
    100 + p * 2, 100 + p, p * 2, 20)
With myShape.Fill
    .Visible = True
    
    .ForeColor.RGB = RGB(p, 200, Int(p / 2))

    
   
End With
Next p

End Sub

в итоге отображается  симпатичная картинка а нужно чтобы был виден ход построения программы. Как заставить показывать последовательное построение.
Думал использовать что-то вроде repaunt или refresh- не работает

как то так:



Это сообщение отредактировал(а) dorogoyIV - 20.2.2010, 04:14

СПАСИБО