Excel online auto refresh. Sub AutoCalculationRange() Range("A1:D14").