Public Sub Q_28701027()
Dim lngRow As Long
For lngRow = 1& To 1000&
DoEvents
If lngRow Mod 46& = 0 Then
Application.Goto Reference:=Cells(lngRow, 1), Scroll:=True
End If
Cells(lngRow, 1) = lngRow * Rnd() <- Setting value of column [A] on each row for a demonstration
Next lngRow
End Sub