Is it OK to delete all the ActiveWindow.SCROLLROWs ??

[ChrisOK]

I'm tempted to delete a large chunk of this code (scrolling) but want to make sure I understand it and know it is ok... When recording a macro, I notice this often "ActiveWindow.ScrollRow = xxxxx" and wonder if it would hurt anything if I get rid of it... (references of Row 65387 through Row 1) it seems unnecessary when I'm stepping through / watching the code operate...

Range("J8").Select
    ActiveCell.FormulaR1C1 = "=TRIM(SUBSTITUTE(RC[-8],CHAR(160),CHAR(32)))"
    Range("J8").Select
    Selection.AutoFill Destination:=Range("J8:J65536"), Type:=xlFillDefault
    Range("J8:J65536").Select
    ActiveWindow.ScrollRow = 65387
    ActiveWindow.ScrollRow = 65273
    ActiveWindow.ScrollRow = 65159
    ActiveWindow.ScrollRow = 65045
    ActiveWindow.ScrollRow = 64930
    ActiveWindow.ScrollRow = 64702
    ActiveWindow.ScrollRow = 64474
    ActiveWindow.ScrollRow = 64360
    ActiveWindow.ScrollRow = 63561
    ActiveWindow.ScrollRow = 63333
    ActiveWindow.ScrollRow = 62876
    ActiveWindow.ScrollRow = 62534
    ActiveWindow.ScrollRow = 62192
    ActiveWindow.ScrollRow = 61165
    ActiveWindow.ScrollRow = 60822
    ActiveWindow.ScrollRow = 60366
    ActiveWindow.ScrollRow = 59910
    ActiveWindow.ScrollRow = 59567
    ActiveWindow.ScrollRow = 59225
    ActiveWindow.ScrollRow = 57741
    ActiveWindow.ScrollRow = 57399
    ActiveWindow.ScrollRow = 56943
    ActiveWindow.ScrollRow = 56258
    ActiveWindow.ScrollRow = 55916
    ActiveWindow.ScrollRow = 54546
    ActiveWindow.ScrollRow = 53976
    ActiveWindow.ScrollRow = 53405
    ActiveWindow.ScrollRow = 52721
    ActiveWindow.ScrollRow = 52150
    ActiveWindow.ScrollRow = 51694
    ActiveWindow.ScrollRow = 49982
    ActiveWindow.ScrollRow = 49411
    ActiveWindow.ScrollRow = 48727
    ActiveWindow.ScrollRow = 47928
    ActiveWindow.ScrollRow = 47471
    ActiveWindow.ScrollRow = 46901
    ActiveWindow.ScrollRow = 45417
    ActiveWindow.ScrollRow = 44619
    ActiveWindow.ScrollRow = 44162
    ActiveWindow.ScrollRow = 43592
    ActiveWindow.ScrollRow = 42793
    ActiveWindow.ScrollRow = 41195
    ActiveWindow.ScrollRow = 40511
    ActiveWindow.ScrollRow = 39826
    ActiveWindow.ScrollRow = 39255
    ActiveWindow.ScrollRow = 38457
    ActiveWindow.ScrollRow = 37886
    ActiveWindow.ScrollRow = 36174
    ActiveWindow.ScrollRow = 35718
    ActiveWindow.ScrollRow = 35033
    ActiveWindow.ScrollRow = 34577
    ActiveWindow.ScrollRow = 33892
    ActiveWindow.ScrollRow = 32409
    ActiveWindow.ScrollRow = 31838
    ActiveWindow.ScrollRow = 31268
    ActiveWindow.ScrollRow = 30583
    ActiveWindow.ScrollRow = 30126
    ActiveWindow.ScrollRow = 29328
    ActiveWindow.ScrollRow = 28072
    ActiveWindow.ScrollRow = 27388
    ActiveWindow.ScrollRow = 26931
    ActiveWindow.ScrollRow = 26475
    ActiveWindow.ScrollRow = 25790
    ActiveWindow.ScrollRow = 24307
    ActiveWindow.ScrollRow = 23736
    ActiveWindow.ScrollRow = 23166
    ActiveWindow.ScrollRow = 22709
    ActiveWindow.ScrollRow = 21910
    ActiveWindow.ScrollRow = 21568
    ActiveWindow.ScrollRow = 20427
    ActiveWindow.ScrollRow = 19971
    ActiveWindow.ScrollRow = 19628
    ActiveWindow.ScrollRow = 19172
    ActiveWindow.ScrollRow = 18601
    ActiveWindow.ScrollRow = 18259
    ActiveWindow.ScrollRow = 17232
    ActiveWindow.ScrollRow = 16661
    ActiveWindow.ScrollRow = 16091
    ActiveWindow.ScrollRow = 15748
    ActiveWindow.ScrollRow = 15178
    ActiveWindow.ScrollRow = 14037
    ActiveWindow.ScrollRow = 13466
    ActiveWindow.ScrollRow = 13010
    ActiveWindow.ScrollRow = 12553
    ActiveWindow.ScrollRow = 12211
    ActiveWindow.ScrollRow = 11640
    ActiveWindow.ScrollRow = 10157
    ActiveWindow.ScrollRow = 9700
    ActiveWindow.ScrollRow = 9244
    ActiveWindow.ScrollRow = 8902
    ActiveWindow.ScrollRow = 8331
    ActiveWindow.ScrollRow = 7304
    ActiveWindow.ScrollRow = 6734
    ActiveWindow.ScrollRow = 6391
    ActiveWindow.ScrollRow = 5935
    ActiveWindow.ScrollRow = 5022
    ActiveWindow.ScrollRow = 3995
    ActiveWindow.ScrollRow = 3653
    ActiveWindow.ScrollRow = 3310
    ActiveWindow.ScrollRow = 2511
    ActiveWindow.ScrollRow = 1599
    ActiveWindow.ScrollRow = 1256
    ActiveWindow.ScrollRow = 914
    ActiveWindow.ScrollRow = 343
    ActiveWindow.ScrollRow = 1
    Selection.Copy
    Range("B8").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Columns("B:B").Select
    Application.CutCopyMode = False
    
    ' Macro1_SelectColumnAndDELETE Macro
' selects a column and deletes the column then returns focus to A1 of the sheet
'

'
    Columns("J:J").Select
    Selection.Delete Shift:=xlToLeft
    Range("A1").Select
    
    
    End If
    
End Sub

 

[xenou]

Hi,
yes, they can be safely deleting. It is just copying your movements as you scroll up or down the page.

Strictly speaking you can remove the selections too. Example:

    Columns("J:J").Select
    Selection.Delete Shift:=xlToLeft

Can be edited to:

    Columns("J:J").Delete Shift:=xlToLeft

The advantage here is that there is no "flicker" because there is no movement on the page (well, here there might be, because a column is deleted).


Another example is:

Range("J8").Select
    ActiveCell.FormulaR1C1 = "=TRIM(SUBSTITUTE(RC[-8],CHAR(160),CHAR(32)))"

Which can be slimmed down to:

Range("J8").FormulaR1C1 = "=TRIM(SUBSTITUTE(RC[-8],CHAR(160),CHAR(32)))"

 

[ChrisOK]

VERY INTERESTING! ~records movements..... Thanks xenou! Much appreciated -- and thank you for the examples to help provide more clarity!

 

[xenou]

No problem. Keep Excelling!