Forum Discussion

Glenn_W_0721's avatar
Glenn_W_0721
Copper Contributor
Nov 29, 2018

Macro Pauses

How do I Pause a macro so I can open a specific file and than have the macro perform what I have to do?  I bold faced the critical part below..  I hope to use the Pause Macro function in other situations.

Glenn

 

 

Sub IllinoisTemp()
'
' IllinoisTemp Macro
' Create Illinois Temp Data
'
' Keyboard Shortcut: Ctrl+I
'
ChDir "C:\Personal\09225572\Documents\Pontoon"
Workbooks.Open Filename:= _
"C:\Personal\09225572\Documents\Pontoon\Maria's_Temp_Assignment_Usage.xlsx"
Application.Left = -6.5
Application.Top = 66.25
Sheets("Maria's_Temp_Assignment_Usage_R").Select
Sheets("Maria's_Temp_Assignment_Usage_R").Copy After:=Sheets(1)
Sheets("Maria's_Temp_Assignment_Usa (2").Select
Sheets("Maria's_Temp_Assignment_Usa (2").Name = "Illinois Temp Data"
Rows("2:2").Select
Selection.AutoFilter
ActiveWindow.ScrollColumn = 60
ActiveWindow.ScrollColumn = 59
ActiveWindow.ScrollColumn = 58
ActiveWindow.ScrollColumn = 57
ActiveWindow.ScrollColumn = 56
ActiveWindow.ScrollColumn = 55
ActiveWindow.ScrollColumn = 54
ActiveWindow.ScrollColumn = 53
ActiveWindow.ScrollColumn = 52
ActiveWindow.ScrollColumn = 51
ActiveWindow.ScrollColumn = 50
ActiveWindow.ScrollColumn = 49
ActiveWindow.ScrollColumn = 48
ActiveWindow.ScrollColumn = 47
ActiveWindow.ScrollColumn = 46
ActiveWindow.ScrollColumn = 45
ActiveWindow.ScrollColumn = 44
ActiveWindow.ScrollColumn = 43
ActiveWindow.ScrollColumn = 42
ActiveWindow.ScrollColumn = 41
ActiveWindow.ScrollColumn = 40
ActiveWindow.ScrollColumn = 39
ActiveWindow.ScrollColumn = 38
ActiveWindow.ScrollColumn = 37
ActiveWindow.ScrollColumn = 36
ActiveWindow.ScrollColumn = 35
ActiveWindow.ScrollColumn = 34
ActiveWindow.ScrollColumn = 33
ActiveWindow.ScrollColumn = 32
ActiveWindow.ScrollColumn = 31
ActiveWindow.ScrollColumn = 30
ActiveWindow.ScrollColumn = 29
ActiveWindow.ScrollColumn = 28
ActiveWindow.ScrollColumn = 27
ActiveWindow.ScrollColumn = 26
ActiveWindow.ScrollColumn = 25
ActiveWindow.ScrollColumn = 24
ActiveWindow.ScrollColumn = 23
ActiveWindow.ScrollColumn = 22
ActiveWindow.ScrollColumn = 21
ActiveWindow.ScrollColumn = 20
ActiveWindow.ScrollColumn = 19
ActiveWindow.ScrollColumn = 20
ActiveWindow.ScrollColumn = 21
ActiveWindow.ScrollColumn = 22
ActiveWindow.ScrollColumn = 23
ActiveWindow.ScrollColumn = 24
ActiveWindow.ScrollColumn = 25
ActiveWindow.ScrollColumn = 26
ActiveWindow.ScrollColumn = 25
ActiveWindow.ScrollColumn = 24
ActiveWindow.ScrollColumn = 23
ActiveWindow.ScrollColumn = 22
ActiveWindow.ScrollColumn = 21
ActiveWindow.ScrollColumn = 20
ActiveWindow.ScrollColumn = 19
ActiveWindow.ScrollColumn = 18
ActiveWindow.ScrollColumn = 17
ActiveWindow.ScrollColumn = 16
ActiveWindow.ScrollColumn = 15
ActiveWindow.ScrollColumn = 14
ActiveWindow.ScrollColumn = 13
ActiveWindow.ScrollColumn = 12
ActiveWindow.ScrollColumn = 11
ActiveWindow.ScrollColumn = 10
ActiveWindow.ScrollColumn = 9
ActiveWindow.ScrollColumn = 8
ActiveWindow.ScrollColumn = 7
ActiveWindow.ScrollColumn = 6
ActiveWindow.ScrollColumn = 5
ActiveWindow.ScrollColumn = 4
ActiveWindow.ScrollColumn = 3
ActiveWindow.ScrollColumn = 2
ActiveWindow.ScrollColumn = 1
ActiveWindow.SmallScroll ToRight:=13
ActiveSheet.Range("$A$2:$BP$59184").AutoFilter Field:=19, Criteria1:= _
"<>Illinois", Operator:=xlAnd
Rows("3:3").Select
Range("N3").Activate
Range(Selection, Selection.End(xlDown)).Select
Selection.Delete Shift:=xlUp
ActiveWindow.ScrollRow = 59172
ActiveWindow.ScrollRow = 58979
ActiveWindow.ScrollRow = 58787
ActiveWindow.ScrollRow = 58594
ActiveWindow.ScrollRow = 58401
ActiveWindow.ScrollRow = 58208
ActiveWindow.ScrollRow = 57823
ActiveWindow.ScrollRow = 57630
ActiveWindow.ScrollRow = 57437
ActiveWindow.ScrollRow = 56859
ActiveWindow.ScrollRow = 56474
ActiveWindow.ScrollRow = 56281
ActiveWindow.ScrollRow = 55703
ActiveWindow.ScrollRow = 55317
ActiveWindow.ScrollRow = 54739
ActiveWindow.ScrollRow = 53968
ActiveWindow.ScrollRow = 53390
ActiveWindow.ScrollRow = 52619
ActiveWindow.ScrollRow = 51848
ActiveWindow.ScrollRow = 51270
ActiveWindow.ScrollRow = 50499
ActiveWindow.ScrollRow = 49535
ActiveWindow.ScrollRow = 48572
ActiveWindow.ScrollRow = 47415
ActiveWindow.ScrollRow = 46259
ActiveWindow.ScrollRow = 45295
ActiveWindow.ScrollRow = 43946
ActiveWindow.ScrollRow = 42790
ActiveWindow.ScrollRow = 40670
ActiveWindow.ScrollRow = 38935
ActiveWindow.ScrollRow = 37008
ActiveWindow.ScrollRow = 35466
ActiveWindow.ScrollRow = 33924
ActiveWindow.ScrollRow = 32575
ActiveWindow.ScrollRow = 31226
ActiveWindow.ScrollRow = 29877
ActiveWindow.ScrollRow = 28335
ActiveWindow.ScrollRow = 26986
ActiveWindow.ScrollRow = 25829
ActiveWindow.ScrollRow = 24480
ActiveWindow.ScrollRow = 23324
ActiveWindow.ScrollRow = 22167
ActiveWindow.ScrollRow = 21011
ActiveWindow.ScrollRow = 19854
ActiveWindow.ScrollRow = 18891
ActiveWindow.ScrollRow = 17927
ActiveWindow.ScrollRow = 16963
ActiveWindow.ScrollRow = 16385
ActiveWindow.ScrollRow = 15614
ActiveWindow.ScrollRow = 15036
ActiveWindow.ScrollRow = 14265
ActiveWindow.ScrollRow = 13880
ActiveWindow.ScrollRow = 13302
ActiveWindow.ScrollRow = 12723
ActiveWindow.ScrollRow = 12338
ActiveWindow.ScrollRow = 11760
ActiveWindow.ScrollRow = 11374
ActiveWindow.ScrollRow = 10796
ActiveWindow.ScrollRow = 10603
ActiveWindow.ScrollRow = 10218
ActiveWindow.ScrollRow = 9832
ActiveWindow.ScrollRow = 9061
ActiveWindow.ScrollRow = 8676
ActiveWindow.ScrollRow = 8098
ActiveWindow.ScrollRow = 7712
ActiveWindow.ScrollRow = 7134
ActiveWindow.ScrollRow = 6749
ActiveWindow.ScrollRow = 6170
ActiveWindow.ScrollRow = 5592
ActiveWindow.ScrollRow = 5207
ActiveWindow.ScrollRow = 4821
ActiveWindow.ScrollRow = 4436
ActiveSheet.Range("$A$2:$BP$4704").AutoFilter Field:=19, Criteria1:="<>"
ActiveWindow.ScrollRow = 4704
ActiveWindow.ScrollRow = 4629
ActiveWindow.ScrollRow = 4436
ActiveWindow.ScrollRow = 4243
ActiveWindow.ScrollRow = 4050
ActiveWindow.ScrollRow = 3858
ActiveWindow.ScrollRow = 3665
ActiveWindow.ScrollRow = 3472
ActiveWindow.ScrollRow = 3279
ActiveWindow.ScrollRow = 3087
ActiveWindow.ScrollRow = 2701
ActiveWindow.ScrollRow = 2509
ActiveWindow.ScrollRow = 2316
ActiveWindow.ScrollRow = 2123
ActiveWindow.ScrollRow = 1930
ActiveWindow.ScrollRow = 1738
ActiveWindow.ScrollRow = 1545
ActiveWindow.ScrollRow = 1159
ActiveWindow.ScrollRow = 967
ActiveWindow.ScrollRow = 774
ActiveWindow.ScrollRow = 581
ActiveWindow.ScrollRow = 388
ActiveWindow.ScrollRow = 196
ActiveWindow.ScrollRow = 3
ActiveWindow.ScrollRow = 196
ActiveWindow.ScrollRow = 388
ActiveWindow.ScrollRow = 581
ActiveWindow.ScrollRow = 774
ActiveWindow.ScrollRow = 967
ActiveWindow.ScrollRow = 1159
ActiveWindow.ScrollRow = 1352
ActiveWindow.ScrollRow = 1545
ActiveWindow.ScrollRow = 1738
ActiveWindow.ScrollRow = 1930
ActiveWindow.ScrollRow = 2123
ActiveWindow.ScrollRow = 2316
ActiveWindow.ScrollRow = 2509
ActiveWindow.ScrollRow = 2701
ActiveWindow.ScrollRow = 2894
ActiveWindow.ScrollRow = 3087
ActiveWindow.ScrollRow = 3279
ActiveWindow.ScrollRow = 3665
ActiveWindow.ScrollRow = 3858
ActiveWindow.ScrollRow = 4050
ActiveWindow.ScrollRow = 4436
ActiveWindow.ScrollRow = 4629
ActiveWindow.ScrollRow = 5014
ActiveWindow.ScrollRow = 5207
ActiveWindow.ScrollRow = 5592
ActiveWindow.ScrollRow = 5785
ActiveWindow.ScrollRow = 5978
ActiveWindow.ScrollRow = 6363
ActiveWindow.ScrollRow = 6556
ActiveWindow.ScrollRow = 6749
ActiveWindow.ScrollRow = 7134
ActiveWindow.ScrollRow = 7327
ActiveWindow.ScrollRow = 7520
ActiveWindow.ScrollRow = 7905
ActiveWindow.ScrollRow = 8291
ActiveWindow.ScrollRow = 8483
ActiveWindow.ScrollRow = 8676
ActiveWindow.ScrollRow = 8869
ActiveWindow.ScrollRow = 9061
ActiveWindow.ScrollRow = 9254
ActiveWindow.ScrollRow = 9447
ActiveWindow.ScrollRow = 9640
ActiveWindow.ScrollRow = 9832
ActiveWindow.ScrollRow = 10025
ActiveWindow.ScrollRow = 9832
ActiveWindow.ScrollRow = 9640
ActiveWindow.ScrollRow = 9447
ActiveWindow.ScrollRow = 9254
ActiveWindow.ScrollRow = 9061
ActiveWindow.ScrollRow = 8869
ActiveWindow.ScrollRow = 8676
ActiveWindow.ScrollRow = 8483
ActiveWindow.ScrollRow = 8291
ActiveWindow.ScrollRow = 8098
ActiveWindow.ScrollRow = 7905
ActiveWindow.ScrollRow = 7712
ActiveWindow.ScrollRow = 7520
ActiveWindow.ScrollRow = 7327
ActiveWindow.ScrollRow = 7134
ActiveWindow.ScrollRow = 6941
ActiveWindow.ScrollRow = 6749
ActiveWindow.ScrollRow = 6556
ActiveWindow.ScrollRow = 6363
ActiveWindow.ScrollRow = 6170
ActiveWindow.ScrollRow = 5978
ActiveWindow.ScrollRow = 5785
ActiveWindow.ScrollRow = 5592
ActiveWindow.ScrollRow = 5400
ActiveWindow.ScrollRow = 5207
ActiveWindow.ScrollRow = 5014
ActiveWindow.ScrollRow = 4821
ActiveWindow.ScrollRow = 4629
ActiveWindow.ScrollRow = 4436
ActiveWindow.ScrollRow = 4243
ActiveWindow.ScrollRow = 4050
ActiveWindow.ScrollRow = 3858
ActiveWindow.ScrollRow = 3665
ActiveWindow.ScrollRow = 3472
ActiveWindow.ScrollRow = 3279
ActiveWindow.ScrollRow = 3087
ActiveWindow.ScrollRow = 2894
ActiveWindow.ScrollRow = 2701
ActiveWindow.ScrollRow = 2509
ActiveWindow.ScrollRow = 2316
ActiveWindow.ScrollRow = 2123
ActiveWindow.ScrollRow = 1930
ActiveWindow.ScrollRow = 1738
ActiveWindow.ScrollRow = 1545
ActiveWindow.ScrollRow = 1352
ActiveWindow.ScrollRow = 1159
ActiveWindow.ScrollRow = 967
ActiveWindow.ScrollRow = 774
ActiveWindow.ScrollRow = 581
ActiveWindow.ScrollRow = 388
ActiveWindow.ScrollRow = 3
Range("O6").Select
ActiveWindow.ScrollRow = 196
ActiveWindow.ScrollRow = 388
ActiveWindow.ScrollRow = 581
ActiveWindow.ScrollRow = 774
ActiveWindow.ScrollRow = 967
ActiveWindow.ScrollRow = 1159
ActiveWindow.ScrollRow = 1352
ActiveWindow.ScrollRow = 1545
ActiveWindow.ScrollRow = 1930
ActiveWindow.ScrollRow = 2316
ActiveWindow.ScrollRow = 2701
ActiveWindow.ScrollRow = 3279
ActiveWindow.ScrollRow = 3858
ActiveWindow.ScrollRow = 4436
ActiveWindow.ScrollRow = 5400
ActiveWindow.ScrollRow = 5978
ActiveWindow.ScrollRow = 6941
ActiveWindow.ScrollRow = 7520
ActiveWindow.ScrollRow = 8483
ActiveWindow.ScrollRow = 9254
ActiveWindow.ScrollRow = 10218
ActiveWindow.ScrollRow = 11182
ActiveWindow.ScrollRow = 12145
ActiveWindow.ScrollRow = 13109
ActiveWindow.ScrollRow = 14265
ActiveWindow.ScrollRow = 15614
ActiveWindow.ScrollRow = 16963
ActiveWindow.ScrollRow = 17927
ActiveWindow.ScrollRow = 19084
ActiveWindow.ScrollRow = 20047
ActiveWindow.ScrollRow = 21011
ActiveWindow.ScrollRow = 21975
ActiveWindow.ScrollRow = 23131
ActiveWindow.ScrollRow = 23902
ActiveWindow.ScrollRow = 24866
ActiveWindow.ScrollRow = 25829
ActiveWindow.ScrollRow = 26600
ActiveWindow.ScrollRow = 27371
ActiveWindow.ScrollRow = 28335
ActiveWindow.ScrollRow = 29106
ActiveWindow.ScrollRow = 29877
ActiveWindow.ScrollRow = 30648
ActiveWindow.ScrollRow = 31804
ActiveWindow.ScrollRow = 32575
ActiveWindow.ScrollRow = 33731
ActiveWindow.ScrollRow = 34502
ActiveWindow.ScrollRow = 35273
ActiveWindow.ScrollRow = 36237
ActiveWindow.ScrollRow = 36815
ActiveWindow.ScrollRow = 37779
ActiveWindow.ScrollRow = 38357
ActiveWindow.ScrollRow = 38935
ActiveWindow.ScrollRow = 39513
ActiveWindow.ScrollRow = 40091
ActiveWindow.ScrollRow = 40670
ActiveWindow.ScrollRow = 41055
ActiveWindow.ScrollRow = 41441
ActiveWindow.ScrollRow = 42019
ActiveWindow.ScrollRow = 42404
ActiveWindow.ScrollRow = 42790
ActiveWindow.ScrollRow = 43368
ActiveWindow.ScrollRow = 43753
ActiveWindow.ScrollRow = 44139
ActiveWindow.ScrollRow = 44332
ActiveWindow.ScrollRow = 44910
ActiveWindow.ScrollRow = 45295
ActiveWindow.ScrollRow = 45488
ActiveWindow.ScrollRow = 45873
ActiveWindow.ScrollRow = 46066
ActiveWindow.ScrollRow = 46644
ActiveWindow.ScrollRow = 46837
ActiveWindow.ScrollRow = 47030
ActiveWindow.ScrollRow = 47415
ActiveWindow.ScrollRow = 47801
ActiveWindow.ScrollRow = 47993
ActiveWindow.ScrollRow = 48572
ActiveWindow.ScrollRow = 48957
ActiveWindow.ScrollRow = 49535
ActiveWindow.ScrollRow = 50114
ActiveWindow.ScrollRow = 50692
ActiveWindow.ScrollRow = 51270
ActiveWindow.ScrollRow = 51848
ActiveWindow.ScrollRow = 52426
ActiveWindow.ScrollRow = 52812
ActiveWindow.ScrollRow = 53390
ActiveWindow.ScrollRow = 53968
ActiveWindow.ScrollRow = 54354
ActiveWindow.ScrollRow = 55125
ActiveWindow.ScrollRow = 55510
ActiveWindow.ScrollRow = 55896
ActiveWindow.ScrollRow = 56281
ActiveWindow.ScrollRow = 56474
ActiveWindow.ScrollRow = 57052
ActiveWindow.ScrollRow = 57245
ActiveWindow.ScrollRow = 57437
ActiveWindow.ScrollRow = 57630
ActiveWindow.ScrollRow = 58016
ActiveWindow.ScrollRow = 58208
ActiveWindow.ScrollRow = 58594
ActiveWindow.ScrollRow = 58787
ActiveWindow.ScrollRow = 58979
ActiveWindow.ScrollRow = 59172
ActiveWindow.ScrollRow = 58979
ActiveWindow.ScrollRow = 58594
ActiveWindow.ScrollRow = 58401
ActiveWindow.ScrollRow = 58208
ActiveWindow.ScrollRow = 58016
ActiveWindow.ScrollRow = 57823
ActiveWindow.ScrollRow = 57630
ActiveWindow.ScrollRow = 57437
ActiveWindow.ScrollRow = 57245
ActiveWindow.ScrollRow = 57052
ActiveWindow.ScrollRow = 56859
ActiveWindow.ScrollRow = 56281
ActiveWindow.ScrollRow = 55703
ActiveWindow.ScrollRow = 55317
ActiveWindow.ScrollRow = 54546
ActiveWindow.ScrollRow = 53775
ActiveWindow.ScrollRow = 53197
ActiveWindow.ScrollRow = 52234
ActiveWindow.ScrollRow = 51655
ActiveWindow.ScrollRow = 50884
ActiveWindow.ScrollRow = 50306
ActiveWindow.ScrollRow = 49728
ActiveWindow.ScrollRow = 49150
ActiveWindow.ScrollRow = 48379
ActiveWindow.ScrollRow = 47801
ActiveWindow.ScrollRow = 47223
ActiveWindow.ScrollRow = 46644
ActiveWindow.ScrollRow = 46066
ActiveWindow.ScrollRow = 45681
ActiveWindow.ScrollRow = 45102
ActiveWindow.ScrollRow = 44717
ActiveWindow.ScrollRow = 44139
ActiveWindow.ScrollRow = 43175
ActiveWindow.ScrollRow = 42597
ActiveWindow.ScrollRow = 42019
ActiveWindow.ScrollRow = 41441
ActiveWindow.ScrollRow = 40862
ActiveWindow.ScrollRow = 40284
ActiveWindow.ScrollRow = 39706
ActiveWindow.ScrollRow = 39321
ActiveWindow.ScrollRow = 39128
ActiveWindow.ScrollRow = 38935
ActiveWindow.ScrollRow = 38550
ActiveWindow.ScrollRow = 38357
ActiveWindow.ScrollRow = 38164
ActiveWindow.ScrollRow = 37971
ActiveWindow.ScrollRow = 37586
ActiveWindow.ScrollRow = 37393
ActiveWindow.ScrollRow = 37008
ActiveWindow.ScrollRow = 36622
ActiveWindow.ScrollRow = 36237
ActiveWindow.ScrollRow = 36044
ActiveWindow.ScrollRow = 35851
ActiveWindow.ScrollRow = 35273
ActiveWindow.ScrollRow = 34888
ActiveWindow.ScrollRow = 34309
ActiveWindow.ScrollRow = 33924
ActiveWindow.ScrollRow = 33539
ActiveWindow.ScrollRow = 32960
ActiveWindow.ScrollRow = 32382
ActiveWindow.ScrollRow = 31997
ActiveWindow.ScrollRow = 31418
ActiveWindow.ScrollRow = 31226
ActiveWindow.ScrollRow = 30648
ActiveWindow.ScrollRow = 30069
ActiveWindow.ScrollRow = 29491
ActiveWindow.ScrollRow = 28913
ActiveWindow.ScrollRow = 28335
ActiveWindow.ScrollRow = 27564
ActiveWindow.ScrollRow = 26986
ActiveWindow.ScrollRow = 26022
ActiveWindow.ScrollRow = 25444
ActiveWindow.ScrollRow = 24866
ActiveWindow.ScrollRow = 24480
ActiveWindow.ScrollRow = 24095
ActiveWindow.ScrollRow = 23516
ActiveWindow.ScrollRow = 22938
ActiveWindow.ScrollRow = 22553
ActiveWindow.ScrollRow = 22360
ActiveWindow.ScrollRow = 21975
ActiveWindow.ScrollRow = 21589
ActiveWindow.ScrollRow = 21204
ActiveWindow.ScrollRow = 20818
ActiveWindow.ScrollRow = 20433
ActiveWindow.ScrollRow = 20047
ActiveWindow.ScrollRow = 19469
ActiveWindow.ScrollRow = 19084
ActiveWindow.ScrollRow = 18505
ActiveWindow.ScrollRow = 18120
ActiveWindow.ScrollRow = 17734
ActiveWindow.ScrollRow = 17349
ActiveWindow.ScrollRow = 16771
ActiveWindow.ScrollRow = 16000
ActiveWindow.ScrollRow = 15614
ActiveWindow.ScrollRow = 15036
ActiveWindow.ScrollRow = 14651
ActiveWindow.ScrollRow = 14073
ActiveWindow.ScrollRow = 13302
ActiveWindow.ScrollRow = 12723
ActiveWindow.ScrollRow = 12145
ActiveWindow.ScrollRow = 11374
ActiveWindow.ScrollRow = 10603
ActiveWindow.ScrollRow = 10025
ActiveWindow.ScrollRow = 9640
ActiveWindow.ScrollRow = 9061
ActiveWindow.ScrollRow = 8676
ActiveWindow.ScrollRow = 8098
ActiveWindow.ScrollRow = 7712
ActiveWindow.ScrollRow = 7327
ActiveWindow.ScrollRow = 7134
ActiveWindow.ScrollRow = 6941
ActiveWindow.ScrollRow = 6749
ActiveWindow.ScrollRow = 6556
ActiveWindow.ScrollRow = 6363
ActiveWindow.ScrollRow = 6170
ActiveWindow.ScrollRow = 5978
ActiveWindow.ScrollRow = 5785
ActiveWindow.ScrollRow = 5592
ActiveWindow.ScrollRow = 5207
ActiveWindow.ScrollRow = 4821
ActiveWindow.ScrollRow = 4436
ActiveWindow.ScrollRow = 4050
ActiveWindow.ScrollRow = 3665
ActiveWindow.ScrollRow = 3279
ActiveWindow.ScrollRow = 2894
ActiveWindow.ScrollRow = 2509
ActiveWindow.ScrollRow = 2123
ActiveWindow.ScrollRow = 1738
ActiveWindow.ScrollRow = 1352
ActiveWindow.ScrollRow = 1159
ActiveWindow.ScrollRow = 774
ActiveWindow.ScrollRow = 581
ActiveWindow.ScrollRow = 388
ActiveWindow.ScrollRow = 196
ActiveWindow.ScrollRow = 3
ActiveWindow.ScrollRow = 196
ActiveWindow.ScrollRow = 388
ActiveWindow.ScrollRow = 581
ActiveWindow.ScrollRow = 774
ActiveWindow.ScrollRow = 967
ActiveWindow.ScrollRow = 1159
ActiveWindow.ScrollRow = 1352
ActiveWindow.ScrollRow = 1545
ActiveWindow.ScrollRow = 1738
ActiveWindow.ScrollRow = 1930
ActiveWindow.ScrollRow = 2123
ActiveWindow.ScrollRow = 2316
ActiveWindow.ScrollRow = 2509
ActiveWindow.ScrollRow = 2701
ActiveWindow.ScrollRow = 2894
ActiveWindow.ScrollRow = 3087
ActiveWindow.ScrollRow = 3279
ActiveWindow.ScrollRow = 3472
ActiveWindow.ScrollRow = 3665
ActiveWindow.ScrollRow = 3858
ActiveWindow.ScrollRow = 4050
ActiveWindow.ScrollRow = 4243
ActiveWindow.ScrollRow = 4436
ActiveWindow.ScrollRow = 4629
ActiveWindow.ScrollRow = 4821
ActiveWindow.ScrollRow = 4629
ActiveWindow.ScrollRow = 4436
ActiveWindow.ScrollRow = 4243
ActiveWindow.ScrollRow = 4050
ActiveWindow.ScrollRow = 3858
ActiveWindow.ScrollRow = 3665
ActiveWindow.ScrollRow = 3472
ActiveWindow.ScrollRow = 3279
ActiveWindow.ScrollRow = 3087
ActiveWindow.ScrollRow = 2701
ActiveWindow.ScrollRow = 2509
ActiveWindow.ScrollRow = 2123
ActiveWindow.ScrollRow = 1930
ActiveWindow.ScrollRow = 1545
ActiveWindow.ScrollRow = 1159
ActiveWindow.ScrollRow = 967
ActiveWindow.ScrollRow = 581
ActiveWindow.ScrollRow = 388
ActiveWindow.ScrollRow = 196
ActiveWindow.ScrollRow = 3
ActiveSheet.Range("$A$2:$BP$4704").AutoFilter Field:=19, Criteria1:="="
Rows("4704:4704").Select
Range("N4704").Activate
Selection.Delete Shift:=xlUp
ActiveSheet.Range("$A$2:$BP$4703").AutoFilter Field:=19
ActiveWindow.ScrollColumn = 13
ActiveWindow.ScrollColumn = 12
ActiveWindow.ScrollColumn = 11
ActiveWindow.ScrollColumn = 10
ActiveWindow.ScrollColumn = 9
ActiveWindow.ScrollColumn = 8
ActiveWindow.ScrollColumn = 7
ActiveWindow.ScrollColumn = 6
ActiveWindow.ScrollColumn = 5
ActiveWindow.ScrollColumn = 4
ActiveWindow.ScrollColumn = 3
ActiveWindow.ScrollColumn = 2
ActiveWindow.ScrollColumn = 1
Range("A3").Select
ActiveWorkbook.SaveAs Filename:= _
"C:\Personal\09225572\Documents\Pontoon\Illinois Temp Assignments.xlsx", _
FileFormat:=xlOpenXMLWorkbook, CreateBackup:=False
End Sub

No RepliesBe the first to reply

Resources