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
Bookmarks