Grafik

Sub test()
Dim i%
For i = 1 To 100
ActiveSheet.Cells(3, 2) = 100 - i
'ActiveSheet.ChartObjects("Diagramm 10").Activate
'   Sleep 200
Next i
End Sub

Mit diesem kleinen Makro möchte ich in einer Grafik einen Balken steuern (die Größe verändern). Mit Einzelschritt (F8) funktionierts, ohne Einzelschritt nicht!
Die Sleep oder auch Wait Funktion haben keine Besserung gebracht.
Weiß jemand einen Tipp für mich?
Liebe Grüße Petra