A family of Microsoft spreadsheet software with tools for analyzing, charting, and communicating data.
Add this to your code near start.
With Application
.ScreenUpdating = False
.Calculation = xlManual
End With
do all the stuff with no jumping around or waiting for calcs
then reset it at end
With Application
.Calculation = xlAutomatic
.ScreenUpdating = True
End With
Gord