Greetings,

Having issues getting my scatterplot chart to update while values are changing. If I step through this with the F8 key it shows the ball moving in the scatterplot. But when I run it, it only shows the value at the end.

You can see below I have tried a couple of different methods..

Thannks for any help,

Phil



Sub Bounce1()

Application.ScreenUpdating = True

Range("G5").Value = 2
Range("H5").Value = 9

'ActiveWorkbook.RefreshAll
'DoEvents

ActiveSheet.Calculate
Application.Calculate



Application.Wait (Now + TimeValue("0:00:01"))
Range("G5").Value = 11
Range("H5").Value = 7

'ActiveWorkbook.RefreshAll
'DoEvents

'Calculate

Application.Wait (Now + TimeValue("0:00:01"))
Range("G5").Value = 3
Range("H5").Value = 5

ActiveWorkbook.RefreshAll
DoEvents

'Calculate

Application.Wait (Now + TimeValue("0:00:01"))
Range("G5").Value = 9
Range("H5").Value = 3

ActiveWorkbook.RefreshAll
DoEvents

'Calculate

Application.Wait (Now + TimeValue("0:00:01"))
Range("G5").Value = 5
Range("H5").Value = 2

End Sub