Has anyone using 365 noticed a performance decline compared to older Excel versions?

VBA Code:

```
Sub SpeedTest()
Dim calcState
calcState = Application.Calculation
'write consecutive integers from 1 to 1,000,000 to a million cells
Rws = 1000
cols = 1000
Cells.Clear
T = Timer
With Application
.ScreenUpdating = False
.Calculation = xlCalculationManual
.EnableEvents = False
End With
For i = 1 To Rws
For j = 1 To cols
n = n + 1
Cells(i, j).Value = n
Next j
Next i
MsgBox Format(Rws * cols, "#,##0") & " cells in " & (Timer - T) / 60 & "minutes"
With Application
.ScreenUpdating = True
.Calculation = calcState
.EnableEvents = True
End With
End Sub
```