Scatterplot graph not updating while VBA running

[Falconander]

Simple little program trying to update values on a scatterplot. The values are changing in the data but the scatterplot is not updating until it is finished running.

Thanks for any help,



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