Macros excel 2004 problem
Solved/Closed
locomambo
-
Feb 1, 2010 at 04:13 PM
rizvisa1 Posts 4478 Registration date Thursday January 28, 2010 Status Contributor Last seen May 5, 2022 - Feb 5, 2010 at 09:42 AM
rizvisa1 Posts 4478 Registration date Thursday January 28, 2010 Status Contributor Last seen May 5, 2022 - Feb 5, 2010 at 09:42 AM
Hello, guys i please need help with this problem...i have macros that i use daily, i recently got a mac and i have mac office 2004, i try to copy and paste my macros into mac excel macros but everytime i run them i get errors..syntax errors..this is what i got..the red lines are the errors any help i would really appreciated..thanks in advance..i have lots of copy and replace and find and replace and cut, move and paste in those macros..please please help..this is red out all over the macros Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sub Maros1()
'
' Macros1
'
'
'
Columns("H:H").Select
Selection.Insert Shift:=xlToRight
Range("H2").Select
ActiveCell.FormulaR1C1 = "=PROPER(RC[-1])"
Range("H2").Select
Selection.Copy
ActiveWindow.ScrollRow = 2
ActiveWindow.ScrollRow = 3
ActiveWindow.ScrollRow = 5
ActiveWindow.ScrollRow = 6
ActiveWindow.ScrollRow = 7
ActiveWindow.ScrollRow = 9
ActiveWindow.ScrollRow = 12
ActiveWindow.ScrollRow = 14
ActiveWindow.ScrollRow = 15
ActiveWindow.ScrollRow = 17
ActiveWindow.ScrollRow = 19
ActiveWindow.ScrollRow = 21
ActiveWindow.ScrollRow = 22
ActiveWindow.ScrollRow = 24
ActiveWindow.ScrollRow = 26
ActiveWindow.ScrollRow = 27
ActiveWindow.ScrollRow = 29
ActiveWindow.ScrollRow = 33
ActiveWindow.ScrollRow = 34
ActiveWindow.ScrollRow = 36
ActiveWindow.ScrollRow = 38
ActiveWindow.ScrollRow = 40
ActiveWindow.ScrollRow = 42
ActiveWindow.ScrollRow = 46
ActiveWindow.ScrollRow = 48
ActiveWindow.ScrollRow = 57
ActiveWindow.ScrollRow = 63
ActiveWindow.ScrollRow = 65
ActiveWindow.ScrollRow = 68
ActiveWindow.ScrollRow = 70
ActiveWindow.ScrollRow = 74
ActiveWindow.ScrollRow = 76
ActiveWindow.ScrollRow = 77
ActiveWindow.ScrollRow = 87
ActiveWindow.ScrollRow = 89
ActiveWindow.ScrollRow = 96
ActiveWindow.ScrollRow = 104
ActiveWindow.ScrollRow = 113
ActiveWindow.ScrollRow = 123
ActiveWindow.ScrollRow = 142
ActiveWindow.ScrollRow = 153
ActiveWindow.ScrollRow = 162
ActiveWindow.ScrollRow = 170
ActiveWindow.ScrollRow = 179
ActiveWindow.ScrollRow = 187
ActiveWindow.ScrollRow = 205
ActiveWindow.ScrollRow = 213
ActiveWindow.ScrollRow = 224
ActiveWindow.ScrollRow = 234
ActiveWindow.ScrollRow = 253
ActiveWindow.ScrollRow = 263
ActiveWindow.ScrollRow = 273
ActiveWindow.ScrollRow = 282
ActiveWindow.ScrollRow = 291
ActiveWindow.ScrollRow = 299
ActiveWindow.ScrollRow = 306
ActiveWindow.ScrollRow = 314
ActiveWindow.ScrollRow = 316
ActiveWindow.ScrollRow = 320
ActiveWindow.ScrollRow = 321
ActiveWindow.ScrollRow = 323
ActiveWindow.ScrollRow = 326
ActiveWindow.ScrollRow = 328
ActiveWindow.ScrollRow = 329
ActiveWindow.ScrollRow = 331
ActiveWindow.ScrollRow = 332
ActiveWindow.ScrollRow = 335
ActiveWindow.ScrollRow = 337
ActiveWindow.ScrollRow = 338
ActiveWindow.ScrollRow = 340
ActiveWindow.ScrollRow = 342
ActiveWindow.ScrollRow = 343
ActiveWindow.ScrollRow = 344
ActiveWindow.ScrollRow = 345
ActiveWindow.ScrollRow = 346
ActiveWindow.ScrollRow = 347
ActiveWindow.ScrollRow = 348
ActiveWindow.ScrollRow = 349
ActiveWindow.ScrollRow = 350
ActiveWindow.ScrollRow = 351
ActiveWindow.ScrollRow = 352
ActiveWindow.ScrollRow = 353
ActiveWindow.ScrollRow = 354
ActiveWindow.ScrollRow = 355
ActiveWindow.ScrollRow = 356
ActiveWindow.ScrollRow = 357
ActiveWindow.ScrollRow = 358
ActiveWindow.ScrollRow = 360
ActiveWindow.ScrollRow = 362
ActiveWindow.ScrollRow = 363
ActiveWindow.ScrollRow = 364
ActiveWindow.ScrollRow = 366
ActiveWindow.ScrollRow = 367
ActiveWindow.ScrollRow = 368
Range("H2:H401").Select
ActiveSheet.Paste
Application.CutCopyMode = False
Selection.Copy
Range("G2").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("H2").Select
Application.CutCopyMode = False
ActiveCell.FormulaR1C1 = "=PROPER(RC[1])"
Range("H2").Select
Selection.Copy
ActiveWindow.ScrollRow = 2
ActiveWindow.ScrollRow = 4
ActiveWindow.ScrollRow = 5
ActiveWindow.ScrollRow = 6
ActiveWindow.ScrollRow = 14
ActiveWindow.ScrollRow = 17
ActiveWindow.ScrollRow = 24
ActiveWindow.ScrollRow = 38
ActiveWindow.ScrollRow = 48
ActiveWindow.ScrollRow = 58
ActiveWindow.ScrollRow = 67
ActiveWindow.ScrollRow = 85
ActiveWindow.ScrollRow = 93
ActiveWindow.ScrollRow = 110
ActiveWindow.ScrollRow = 118
ActiveWindow.ScrollRow = 135
ActiveWindow.ScrollRow = 142
ActiveWindow.ScrollRow = 150
ActiveWindow.ScrollRow = 158
ActiveWindow.ScrollRow = 167
ActiveWindow.ScrollRow = 175
ActiveWindow.ScrollRow = 184
ActiveWindow.ScrollRow = 192
ActiveWindow.ScrollRow = 207
ActiveWindow.ScrollRow = 217
ActiveWindow.ScrollRow = 224
ActiveWindow.ScrollRow = 232
ActiveWindow.ScrollRow = 249
ActiveWindow.ScrollRow = 258
ActiveWindow.ScrollRow = 266
ActiveWindow.ScrollRow = 275
ActiveWindow.ScrollRow = 283
ActiveWindow.ScrollRow = 285
ActiveWindow.ScrollRow = 292
ActiveWindow.ScrollRow = 299
ActiveWindow.ScrollRow = 307
ActiveWindow.ScrollRow = 314
ActiveWindow.ScrollRow = 316
ActiveWindow.ScrollRow = 326
ActiveWindow.ScrollRow = 331
ActiveWindow.ScrollRow = 333
ActiveWindow.ScrollRow = 334
ActiveWindow.ScrollRow = 335
ActiveWindow.ScrollRow = 338
ActiveWindow.ScrollRow = 339
ActiveWindow.ScrollRow = 340
ActiveWindow.ScrollRow = 341
ActiveWindow.ScrollRow = 342
ActiveWindow.ScrollRow = 343
ActiveWindow.ScrollRow = 344
ActiveWindow.ScrollRow = 345
ActiveWindow.ScrollRow = 346
ActiveWindow.ScrollRow = 348
ActiveWindow.ScrollRow = 352
ActiveWindow.ScrollRow = 353
ActiveWindow.ScrollRow = 355
ActiveWindow.ScrollRow = 356
ActiveWindow.ScrollRow = 358
ActiveWindow.ScrollRow = 360
ActiveWindow.ScrollRow = 361
ActiveWindow.ScrollRow = 362
ActiveWindow.ScrollRow = 364
ActiveWindow.ScrollRow = 365
ActiveWindow.ScrollRow = 367
ActiveWindow.ScrollRow = 368
Range("H2:H401").Select
ActiveSheet.Paste
Application.CutCopyMode = False
Selection.Copy
Range("I2").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Columns("H:H").Select
Application.CutCopyMode = False
Selection.Delete Shift:=xlToLeft
Range("I4").Select
Columns("D:D").Select
Range("D19").Activate
Columns("D:D").Select
Selection.Insert Shift:=xlToRight
Range("D2").Select
ActiveWindow.SmallScroll Down:=-15
ActiveCell.FormulaR1C1 = "=PROPER(RC[-1])"
Range("D2").Select
Selection.Copy
ActiveWindow.ScrollRow = 2
ActiveWindow.ScrollRow = 3
ActiveWindow.ScrollRow = 4
ActiveWindow.ScrollRow = 11
ActiveWindow.ScrollRow = 16
ActiveWindow.ScrollRow = 30
ActiveWindow.ScrollRow = 38
ActiveWindow.ScrollRow = 49
ActiveWindow.ScrollRow = 60
ActiveWindow.ScrollRow = 70
ActiveWindow.ScrollRow = 89
ActiveWindow.ScrollRow = 100
ActiveWindow.ScrollRow = 124
ActiveWindow.ScrollRow = 137
ActiveWindow.ScrollRow = 151
ActiveWindow.ScrollRow = 171
ActiveWindow.ScrollRow = 182
ActiveWindow.ScrollRow = 191
ActiveWindow.ScrollRow = 200
ActiveWindow.ScrollRow = 211
ActiveWindow.ScrollRow = 226
ActiveWindow.ScrollRow = 233
ActiveWindow.ScrollRow = 240
ActiveWindow.ScrollRow = 244
ActiveWindow.ScrollRow = 1
ActiveWindow.ScrollRow = 244
ActiveWindow.SmallScroll Down:=129
Range("D2:D401").Select
ActiveSheet.Paste
Application.CutCopyMode = False
Selection.Copy
Range("C2").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("D2").Select
Application.CutCopyMode = False
ActiveCell.FormulaR1C1 = "=PROPER(RC[-1])"
Range("D2").Select
ActiveCell.FormulaR1C1 = "=PROPER(RC[-2])"
Range("D2").Select
Selection.Copy
ActiveWindow.ScrollRow = 2
ActiveWindow.ScrollRow = 3
ActiveWindow.ScrollRow = 5
ActiveWindow.ScrollRow = 6
ActiveWindow.ScrollRow = 7
ActiveWindow.ScrollRow = 9
ActiveWindow.ScrollRow = 25
ActiveWindow.ScrollRow = 34
ActiveWindow.ScrollRow = 44
ActiveWindow.ScrollRow = 53
ActiveWindow.ScrollRow = 72
ActiveWindow.ScrollRow = 79
ActiveWindow.ScrollRow = 87
ActiveWindow.ScrollRow = 102
ActiveWindow.ScrollRow = 106
ActiveWindow.ScrollRow = 113
ActiveWindow.ScrollRow = 116
ActiveWindow.ScrollRow = 124
ActiveWindow.ScrollRow = 132
ActiveWindow.ScrollRow = 141
ActiveWindow.ScrollRow = 159
ActiveWindow.ScrollRow = 169
ActiveWindow.ScrollRow = 188
ActiveWindow.ScrollRow = 197
ActiveWindow.ScrollRow = 207
ActiveWindow.ScrollRow = 227
ActiveWindow.ScrollRow = 236
ActiveWindow.ScrollRow = 256
ActiveWindow.ScrollRow = 263
ActiveWindow.ScrollRow = 270
ActiveWindow.ScrollRow = 287
ActiveWindow.ScrollRow = 294
ActiveWindow.ScrollRow = 302
ActiveWindow.ScrollRow = 310
ActiveWindow.ScrollRow = 312
ActiveWindow.ScrollRow = 319
ActiveWindow.ScrollRow = 323
ActiveWindow.ScrollRow = 325
ActiveWindow.ScrollRow = 327
ActiveWindow.ScrollRow = 328
ActiveWindow.ScrollRow = 331
ActiveWindow.ScrollRow = 333
ActiveWindow.ScrollRow = 335
ActiveWindow.ScrollRow = 337
ActiveWindow.ScrollRow = 338
ActiveWindow.ScrollRow = 339
ActiveWindow.ScrollRow = 340
ActiveWindow.ScrollRow = 342
ActiveWindow.ScrollRow = 343
ActiveWindow.ScrollRow = 344
ActiveWindow.ScrollRow = 346
ActiveWindow.ScrollRow = 347
ActiveWindow.ScrollRow = 348
ActiveWindow.ScrollRow = 349
ActiveWindow.ScrollRow = 350
ActiveWindow.ScrollRow = 351
ActiveWindow.ScrollRow = 352
ActiveWindow.ScrollRow = 353
ActiveWindow.ScrollRow = 354
ActiveWindow.ScrollRow = 355
ActiveWindow.ScrollRow = 357
ActiveWindow.ScrollRow = 358
ActiveWindow.ScrollRow = 361
ActiveWindow.ScrollRow = 362
ActiveWindow.ScrollRow = 364
ActiveWindow.ScrollRow = 366
ActiveWindow.ScrollRow = 367
ActiveWindow.ScrollRow = 368
Range("D2:D401").Select
ActiveSheet.Paste
Application.CutCopyMode = False
Selection.Copy
Range("B2").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Columns("D:D").Select
Application.CutCopyMode = False
Selection.Delete Shift:=xlToLeft
Range("E6").Select
Columns("C:C").Select
Selection.Insert Shift:=xlToRight
Range("C2").Select
ActiveCell.FormulaR1C1 = "=PROPER(RC[-1])"
Range("C2").Select
Selection.Copy
ActiveWindow.SmallScroll Down:=138
Range("C2:C160").Select
ActiveSheet.Paste
Application.CutCopyMode = False
Selection.Copy
Range("B2").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Columns("C:C").Select
Application.CutCopyMode = False
Selection.Delete Shift:=xlToLeft
Columns("D:D").Select
Selection.Insert Shift:=xlToRight
Range("D2").Select
ActiveCell.FormulaR1C1 = "=PROPER(RC[-1])"
Range("D2").Select
Selection.Copy
ActiveWindow.SmallScroll Down:=135
Application.CutCopyMode = False
ActiveCell.FormulaR1C1 = "=PROPER(RC[-1])"
Range("D2").Select
ActiveWindow.SmallScroll Down:=147
Range("D2:D167").Select
ActiveWindow.SmallScroll Down:=-21
ActiveWindow.ScrollRow = 1
Range("D2").Select
Selection.Copy
ActiveWindow.ScrollRow = 2
ActiveWindow.ScrollRow = 3
ActiveWindow.ScrollRow = 4
ActiveWindow.ScrollRow = 5
ActiveWindow.ScrollRow = 6
ActiveWindow.ScrollRow = 9
ActiveWindow.ScrollRow = 10
ActiveWindow.ScrollRow = 13
ActiveWindow.ScrollRow = 20
ActiveWindow.ScrollRow = 24
ActiveWindow.ScrollRow = 27
ActiveWindow.ScrollRow = 31
ActiveWindow.ScrollRow = 39
ActiveWindow.ScrollRow = 44
ActiveWindow.ScrollRow = 47
ActiveWindow.ScrollRow = 56
ActiveWindow.ScrollRow = 60
ActiveWindow.ScrollRow = 64
ActiveWindow.ScrollRow = 68
ActiveWindow.ScrollRow = 71
ActiveWindow.ScrollRow = 75
ActiveWindow.ScrollRow = 81
ActiveWindow.ScrollRow = 84
ActiveWindow.ScrollRow = 85
ActiveWindow.ScrollRow = 89
ActiveWindow.ScrollRow = 90
ActiveWindow.ScrollRow = 96
ActiveWindow.ScrollRow = 100
ActiveWindow.ScrollRow = 103
ActiveWindow.ScrollRow = 106
ActiveWindow.ScrollRow = 110
ActiveWindow.ScrollRow = 113
ActiveWindow.ScrollRow = 116
ActiveWindow.ScrollRow = 118
ActiveWindow.ScrollRow = 121
ActiveWindow.ScrollRow = 124
ActiveWindow.ScrollRow = 127
Range("D2:D160").Select
ActiveSheet.Paste
Application.CutCopyMode = False
Selection.Copy
Range("C2").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Columns("D:D").Select
Application.CutCopyMode = False
Selection.Delete Shift:=xlToLeft
Columns("H:H").Select
Selection.Insert Shift:=xlToRight
Range("H2").Select
ActiveCell.FormulaR1C1 = "=PROPER(RC[-1])"
Range("H2").Select
Selection.Copy
ActiveWindow.ScrollRow = 2
ActiveWindow.ScrollRow = 3
ActiveWindow.ScrollRow = 4
ActiveWindow.ScrollRow = 6
ActiveWindow.ScrollRow = 10
ActiveWindow.ScrollRow = 14
ActiveWindow.ScrollRow = 18
ActiveWindow.ScrollRow = 25
ActiveWindow.ScrollRow = 30
ActiveWindow.ScrollRow = 38
ActiveWindow.ScrollRow = 42
ActiveWindow.ScrollRow = 51
ActiveWindow.ScrollRow = 54
ActiveWindow.ScrollRow = 58
ActiveWindow.ScrollRow = 66
ActiveWindow.ScrollRow = 69
ActiveWindow.ScrollRow = 71
ActiveWindow.ScrollRow = 73
ActiveWindow.ScrollRow = 74
ActiveWindow.ScrollRow = 76
ActiveWindow.ScrollRow = 77
ActiveWindow.ScrollRow = 78
ActiveWindow.ScrollRow = 79
ActiveWindow.ScrollRow = 80
ActiveWindow.ScrollRow = 93
ActiveWindow.ScrollRow = 96
ActiveWindow.ScrollRow = 99
ActiveWindow.ScrollRow = 103
ActiveWindow.ScrollRow = 104
ActiveWindow.ScrollRow = 105
ActiveWindow.ScrollRow = 106
ActiveWindow.ScrollRow = 107
ActiveWindow.ScrollRow = 108
ActiveWindow.ScrollRow = 109
ActiveWindow.ScrollRow = 110
ActiveWindow.ScrollRow = 111
ActiveWindow.ScrollRow = 112
ActiveWindow.ScrollRow = 113
ActiveWindow.ScrollRow = 114
ActiveWindow.ScrollRow = 115
ActiveWindow.ScrollRow = 116
ActiveWindow.ScrollRow = 117
ActiveWindow.ScrollRow = 118
ActiveWindow.ScrollRow = 119
ActiveWindow.ScrollRow = 120
ActiveWindow.ScrollRow = 121
ActiveWindow.ScrollRow = 122
ActiveWindow.ScrollRow = 123
ActiveWindow.ScrollRow = 124
ActiveWindow.ScrollRow = 125
ActiveWindow.ScrollRow = 126
ActiveWindow.ScrollRow = 127
Range("H2:H160").Select
ActiveSheet.Paste
Application.CutCopyMode = False
Selection.Copy
Range("G2").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Columns("H:H").Select
Application.CutCopyMode = False
Selection.Delete Shift:=xlToLeft
Columns("I:I").Select
Selection.Insert Shift:=xlToRight
Range("I2").Select
ActiveCell.FormulaR1C1 = "=PROPER(RC[-1])"
Range("I2").Select
Selection.Copy
ActiveWindow.ScrollRow = 2
ActiveWindow.ScrollRow = 3
ActiveWindow.ScrollRow = 4
ActiveWindow.ScrollRow = 6
ActiveWindow.ScrollRow = 9
ActiveWindow.ScrollRow = 17
ActiveWindow.ScrollRow = 21
ActiveWindow.ScrollRow = 25
ActiveWindow.ScrollRow = 33
ActiveWindow.ScrollRow = 37
ActiveWindow.ScrollRow = 47
ActiveWindow.ScrollRow = 52
ActiveWindow.ScrollRow = 57
ActiveWindow.ScrollRow = 69
ActiveWindow.ScrollRow = 75
ActiveWindow.ScrollRow = 82
ActiveWindow.ScrollRow = 87
ActiveWindow.ScrollRow = 97
ActiveWindow.ScrollRow = 101
ActiveWindow.ScrollRow = 106
ActiveWindow.ScrollRow = 110
ActiveWindow.ScrollRow = 113
ActiveWindow.ScrollRow = 120
ActiveWindow.ScrollRow = 123
ActiveWindow.ScrollRow = 126
ActiveWindow.ScrollRow = 127
Range("I2:I160").Select
ActiveSheet.Paste
Application.CutCopyMode = False
Selection.Copy
Range("H2").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Columns("I:I").Select
Application.CutCopyMode = False
Selection.Delete Shift:=xlToLeft
ActiveWindow.SmallScroll Down:=-9
ActiveWindow.ScrollColumn = 2
ActiveWindow.ScrollColumn = 3
ActiveWindow.ScrollColumn = 4
ActiveWindow.ScrollColumn = 5
ActiveWindow.ScrollColumn = 6
ActiveWindow.ScrollColumn = 7
ActiveWindow.ScrollColumn = 8
ActiveWindow.ScrollColumn = 9
ActiveWindow.ScrollColumn = 10
ActiveWindow.ScrollColumn = 11
ActiveWindow.ScrollColumn = 12
ActiveWindow.ScrollColumn = 13
ActiveWindow.ScrollColumn = 14
ActiveWindow.ScrollColumn = 15
ActiveWindow.ScrollColumn = 16
ActiveWindow.ScrollColumn = 17
ActiveWindow.ScrollColumn = 18
ActiveWindow.ScrollColumn = 19
Columns("W:W").Select
Selection.Insert Shift:=xlToRight
Range("W2").Select
ActiveCell.FormulaR1C1 = "=PROPER(RC[-1])"
Range("W2").Select
Selection.Copy
ActiveWindow.SmallScroll Down:=9
ActiveWindow.ScrollRow = 11
ActiveWindow.ScrollRow = 12
ActiveWindow.ScrollRow = 13
ActiveWindow.ScrollRow = 14
ActiveWindow.ScrollRow = 17
ActiveWindow.ScrollRow = 21
ActiveWindow.ScrollRow = 27
ActiveWindow.ScrollRow = 30
ActiveWindow.ScrollRow = 37
ActiveWindow.ScrollRow = 41
ActiveWindow.ScrollRow = 48
ActiveWindow.ScrollRow = 52
ActiveWindow.ScrollRow = 59
ActiveWindow.ScrollRow = 63
ActiveWindow.ScrollRow = 66
ActiveWindow.ScrollRow = 67
ActiveWindow.ScrollRow = 70
ActiveWindow.ScrollRow = 71
ActiveWindow.ScrollRow = 72
ActiveWindow.ScrollRow = 73
ActiveWindow.ScrollRow = 74
ActiveWindow.ScrollRow = 75
ActiveWindow.ScrollRow = 76
ActiveWindow.ScrollRow = 77
ActiveWindow.ScrollRow = 78
ActiveWindow.ScrollRow = 79
ActiveWindow.ScrollRow = 80
ActiveWindow.ScrollRow = 81
ActiveWindow.ScrollRow = 82
ActiveWindow.ScrollRow = 83
ActiveWindow.ScrollRow = 84
ActiveWindow.ScrollRow = 85
ActiveWindow.ScrollRow = 86
ActiveWindow.ScrollRow = 87
ActiveWindow.ScrollRow = 88
ActiveWindow.ScrollRow = 89
ActiveWindow.ScrollRow = 90
ActiveWindow.ScrollRow = 91
ActiveWindow.ScrollRow = 92
ActiveWindow.ScrollRow = 93
ActiveWindow.ScrollRow = 94
ActiveWindow.ScrollRow = 95
ActiveWindow.ScrollRow = 96
ActiveWindow.ScrollRow = 97
ActiveWindow.ScrollRow = 98
ActiveWindow.ScrollRow = 99
ActiveWindow.ScrollRow = 100
ActiveWindow.ScrollRow = 101
ActiveWindow.ScrollRow = 102
ActiveWindow.ScrollRow = 103
ActiveWindow.ScrollRow = 104
ActiveWindow.ScrollRow = 105
ActiveWindow.ScrollRow = 106
ActiveWindow.ScrollRow = 107
ActiveWindow.ScrollRow = 108
ActiveWindow.ScrollRow = 109
ActiveWindow.ScrollRow = 110
ActiveWindow.ScrollRow = 111
ActiveWindow.ScrollRow = 112
ActiveWindow.ScrollRow = 113
ActiveWindow.ScrollRow = 114
ActiveWindow.ScrollRow = 115
ActiveWindow.ScrollRow = 116
ActiveWindow.ScrollRow = 117
ActiveWindow.ScrollRow = 118
ActiveWindow.ScrollRow = 119
ActiveWindow.ScrollRow = 120
ActiveWindow.ScrollRow = 121
ActiveWindow.ScrollRow = 122
ActiveWindow.ScrollRow = 123
ActiveWindow.ScrollRow = 124
ActiveWindow.ScrollRow = 125
ActiveWindow.ScrollRow = 126
ActiveWindow.ScrollRow = 127
Range("W2:W160").Select
ActiveSheet.Paste
Application.CutCopyMode = False
Selection.Copy
Range("V2").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Columns("W:W").Select
Application.CutCopyMode = False
Selection.Delete Shift:=xlToLeft
Columns("X:X").Select
Selection.Insert Shift:=xlToRight
Range("X2").Select
ActiveCell.FormulaR1C1 = "=PROPER(RC[-1])"
Range("X2").Select
Selection.Copy
ActiveWindow.ScrollRow = 2
ActiveWindow.ScrollRow = 3
ActiveWindow.ScrollRow = 4
ActiveWindow.ScrollRow = 5
ActiveWindow.ScrollRow = 6
ActiveWindow.ScrollRow = 11
ActiveWindow.ScrollRow = 15
ActiveWindow.ScrollRow = 22
ActiveWindow.ScrollRow = 27
ActiveWindow.ScrollRow = 30
ActiveWindow.ScrollRow = 41
ActiveWindow.ScrollRow = 46
ActiveWindow.ScrollRow = 57
ActiveWindow.ScrollRow = 61
ActiveWindow.ScrollRow = 68
ActiveWindow.ScrollRow = 76
ActiveWindow.ScrollRow = 81
ActiveWindow.ScrollRow = 86
ActiveWindow.ScrollRow = 90
ActiveWindow.ScrollRow = 99
ActiveWindow.ScrollRow = 104
ActiveWindow.ScrollRow = 109
ActiveWindow.ScrollRow = 114
ActiveWindow.ScrollRow = 119
ActiveWindow.ScrollRow = 127
ActiveWindow.ScrollRow = 1
ActiveWindow.ScrollRow = 2
ActiveWindow.ScrollRow = 3
ActiveWindow.ScrollRow = 4
ActiveWindow.ScrollRow = 5
ActiveWindow.ScrollRow = 6
ActiveWindow.ScrollRow = 9
ActiveWindow.ScrollRow = 15
ActiveWindow.ScrollRow = 19
ActiveWindow.ScrollRow = 22
ActiveWindow.ScrollRow = 29
ActiveWindow.ScrollRow = 33
ActiveWindow.ScrollRow = 37
ActiveWindow.ScrollRow = 47
ActiveWindow.ScrollRow = 53
ActiveWindow.ScrollRow = 58
ActiveWindow.ScrollRow = 64
ActiveWindow.ScrollRow = 77
ActiveWindow.ScrollRow = 84
ActiveWindow.ScrollRow = 92
ActiveWindow.ScrollRow = 102
ActiveWindow.ScrollRow = 106
ActiveWindow.ScrollRow = 110
ActiveWindow.ScrollRow = 114
ActiveWindow.ScrollRow = 117
ActiveWindow.ScrollRow = 120
ActiveWindow.ScrollRow = 123
ActiveWindow.ScrollRow = 127
ActiveWindow.ScrollRow = 1
ActiveWindow.ScrollRow = 127
Range("X2:X160").Select
ActiveSheet.Paste
Application.CutCopyMode = False
Selection.Copy
Range("W2").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Columns("X:X").Select
Application.CutCopyMode = False
Selection.Delete Shift:=xlToLeft
Columns("Y:Y").Select
Selection.Insert Shift:=xlToRight
Range("Y2").Select
ActiveCell.FormulaR1C1 = "=PROPER(RC[-1])"
Range("Y2").Select
Selection.Copy
ActiveWindow.ScrollRow = 2
ActiveWindow.ScrollRow = 3
ActiveWindow.ScrollRow = 4
ActiveWindow.ScrollRow = 5
ActiveWindow.ScrollRow = 8
ActiveWindow.ScrollRow = 15
ActiveWindow.ScrollRow = 20
ActiveWindow.ScrollRow = 25
ActiveWindow.ScrollRow = 35
ActiveWindow.ScrollRow = 43
ActiveWindow.ScrollRow = 48
ActiveWindow.ScrollRow = 57
ActiveWindow.ScrollRow = 61
ActiveWindow.ScrollRow = 66
ActiveWindow.ScrollRow = 77
ActiveWindow.ScrollRow = 82
ActiveWindow.ScrollRow = 86
ActiveWindow.ScrollRow = 95
ActiveWindow.ScrollRow = 97
ActiveWindow.ScrollRow = 99
ActiveWindow.ScrollRow = 100
ActiveWindow.ScrollRow = 101
ActiveWindow.ScrollRow = 102
ActiveWindow.ScrollRow = 107
ActiveWindow.ScrollRow = 108
ActiveWindow.ScrollRow = 110
ActiveWindow.ScrollRow = 111
ActiveWindow.ScrollRow = 112
ActiveWindow.ScrollRow = 113
ActiveWindow.ScrollRow = 114
ActiveWindow.ScrollRow = 115
ActiveWindow.ScrollRow = 116
ActiveWindow.ScrollRow = 119
ActiveWindow.ScrollRow = 122
ActiveWindow.ScrollRow = 127
Range("Y2:Y160").Select
ActiveSheet.Paste
Application.CutCopyMode = False
Selection.Copy
Range("X2").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Columns("Y:Y").Select
Application.CutCopyMode = False
Selection.Delete Shift:=xlToLeft
Columns("Z:Z").Select
Selection.Insert Shift:=xlToRight
Range("Z2").Select
ActiveCell.FormulaR1C1 = "=PROPER(RC[-1])"
Range("Z2").Select
Selection.Copy
ActiveWindow.ScrollRow = 2
ActiveWindow.ScrollRow = 3
ActiveWindow.ScrollRow = 4
ActiveWindow.ScrollRow = 13
ActiveWindow.ScrollRow = 16
ActiveWindow.ScrollRow = 24
ActiveWindow.ScrollRow = 27
ActiveWindow.ScrollRow = 34
ActiveWindow.ScrollRow = 37
ActiveWindow.ScrollRow = 41
ActiveWindow.ScrollRow = 49
ActiveWindow.ScrollRow = 53
ActiveWindow.ScrollRow = 57
ActiveWindow.ScrollRow = 64
ActiveWindow.ScrollRow = 68
ActiveWindow.ScrollRow = 72
ActiveWindow.ScrollRow = 79
ActiveWindow.ScrollRow = 81
ActiveWindow.ScrollRow = 82
ActiveWindow.ScrollRow = 88
ActiveWindow.ScrollRow = 91
ActiveWindow.ScrollRow = 95
ActiveWindow.ScrollRow = 96
ActiveWindow.ScrollRow = 97
ActiveWindow.ScrollRow = 100
ActiveWindow.ScrollRow = 101
ActiveWindow.ScrollRow = 105
ActiveWindow.ScrollRow = 106
ActiveWindow.ScrollRow = 108
ActiveWindow.ScrollRow = 111
ActiveWindow.ScrollRow = 112
ActiveWindow.ScrollRow = 113
ActiveWindow.ScrollRow = 114
ActiveWindow.ScrollRow = 115
ActiveWindow.ScrollRow = 116
ActiveWindow.ScrollRow = 117
ActiveWindow.ScrollRow = 118
ActiveWindow.ScrollRow = 119
ActiveWindow.ScrollRow = 120
ActiveWindow.ScrollRow = 121
ActiveWindow.ScrollRow = 122
ActiveWindow.ScrollRow = 123
ActiveWindow.ScrollRow = 124
ActiveWindow.ScrollRow = 125
ActiveWindow.ScrollRow = 126
ActiveWindow.ScrollRow = 127
Range("Z2:Z160").Select
ActiveSheet.Paste
Application.CutCopyMode = False
Selection.Copy
Range("Y2").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Columns("Z:Z").Select
Application.CutCopyMode = False
Selection.Delete Shift:=xlToLeft
Columns("AA:AA").Select
Selection.Insert Shift:=xlToRight
Range("AA2").Select
ActiveCell.FormulaR1C1 = "=PROPER(RC[-1])"
Range("AA2").Select
Selection.Copy
ActiveWindow.ScrollRow = 2
ActiveWindow.ScrollRow = 3
ActiveWindow.ScrollRow = 4
ActiveWindow.ScrollRow = 5
ActiveWindow.ScrollRow = 8
ActiveWindow.ScrollRow = 14
ActiveWindow.ScrollRow = 18
ActiveWindow.ScrollRow = 23
ActiveWindow.ScrollRow = 31
ActiveWindow.ScrollRow = 36
ActiveWindow.ScrollRow = 40
ActiveWindow.ScrollRow = 46
ActiveWindow.ScrollRow = 50
ActiveWindow.ScrollRow = 53
ActiveWindow.ScrollRow = 59
ActiveWindow.ScrollRow = 63
ActiveWindow.ScrollRow = 66
ActiveWindow.ScrollRow = 70
ActiveWindow.ScrollRow = 74
ActiveWindow.ScrollRow = 82
ActiveWindow.ScrollRow = 86
ActiveWindow.ScrollRow = 89
ActiveWindow.ScrollRow = 92
ActiveWindow.ScrollRow = 95
ActiveWindow.ScrollRow = 97
ActiveWindow.ScrollRow = 98
ActiveWindow.ScrollRow = 101
ActiveWindow.ScrollRow = 102
ActiveWindow.ScrollRow = 103
ActiveWindow.ScrollRow = 104
ActiveWindow.ScrollRow = 105
ActiveWindow.ScrollRow = 106
ActiveWindow.ScrollRow = 107
ActiveWindow.ScrollRow = 108
ActiveWindow.ScrollRow = 109
ActiveWindow.ScrollRow = 110
ActiveWindow.ScrollRow = 111
ActiveWindow.ScrollRow = 112
ActiveWindow.ScrollRow = 113
ActiveWindow.ScrollRow = 114
ActiveWindow.ScrollRow = 115
ActiveWindow.ScrollRow = 116
ActiveWindow.ScrollRow = 117
ActiveWindow.ScrollRow = 118
ActiveWindow.ScrollRow = 119
ActiveWindow.ScrollRow = 120
ActiveWindow.ScrollRow = 121
ActiveWindow.ScrollRow = 122
ActiveWindow.ScrollRow = 123
ActiveWindow.ScrollRow = 124
ActiveWindow.ScrollRow = 126
ActiveWindow.ScrollRow = 127
Range("AA2:AA160").Select
ActiveSheet.Paste
Application.CutCopyMode = False
Selection.Copy
Range("Z2").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Columns("AA:AA").Select
Application.CutCopyMode = False
Selection.Delete Shift:=xlToLeft
Columns("AB:AB").Select
Selection.Insert Shift:=xlToRight
Range("AB2").Select
ActiveCell.FormulaR1C1 = "=PROPER(RC[-1])"
Range("AB2").Select
Selection.Copy
ActiveWindow.ScrollRow = 2
ActiveWindow.ScrollRow = 3
ActiveWindow.ScrollRow = 6
ActiveWindow.ScrollRow = 7
ActiveWindow.ScrollRow = 17
ActiveWindow.ScrollRow = 23
ActiveWindow.ScrollRow = 31
ActiveWindow.ScrollRow = 44
ActiveWindow.ScrollRow = 49
ActiveWindow.ScrollRow = 56
ActiveWindow.ScrollRow = 64
ActiveWindow.ScrollRow = 68
ActiveWindow.ScrollRow = 71
ActiveWindow.ScrollRow = 75
ActiveWindow.ScrollRow = 93
ActiveWindow.ScrollRow = 96
ActiveWindow.ScrollRow = 99
ActiveWindow.ScrollRow = 101
ActiveWindow.ScrollRow = 102
ActiveWindow.ScrollRow = 103
ActiveWindow.ScrollRow = 104
ActiveWindow.ScrollRow = 105
ActiveWindow.ScrollRow = 106
ActiveWindow.ScrollRow = 109
ActiveWindow.ScrollRow = 112
ActiveWindow.ScrollRow = 114
ActiveWindow.ScrollRow = 117
ActiveWindow.ScrollRow = 118
ActiveWindow.ScrollRow = 119
ActiveWindow.ScrollRow = 120
ActiveWindow.ScrollRow = 121
ActiveWindow.ScrollRow = 122
ActiveWindow.ScrollRow = 123
ActiveWindow.ScrollRow = 124
ActiveWindow.ScrollRow = 125
ActiveWindow.ScrollRow = 126
ActiveWindow.ScrollRow = 127
Range("AB2:AB160").Select
Application.CutCopyMode = False
Selection.Copy
ActiveWindow.ScrollRow = 126
ActiveWindow.ScrollRow = 125
ActiveWindow.ScrollRow = 124
ActiveWindow.ScrollRow = 118
ActiveWindow.ScrollRow = 114
ActiveWindow.ScrollRow = 110
ActiveWindow.ScrollRow = 101
ActiveWindow.ScrollRow = 91
ActiveWindow.ScrollRow = 88
ActiveWindow.ScrollRow = 82
ActiveWindow.ScrollRow = 68
ActiveWindow.ScrollRow = 63
ActiveWindow.ScrollRow = 54
ActiveWindow.ScrollRow = 39
ActiveWindow.ScrollRow = 37
ActiveWindow.ScrollRow = 36
ActiveWindow.ScrollRow = 34
ActiveWindow.ScrollRow = 32
ActiveWindow.ScrollRow = 31
ActiveWindow.ScrollRow = 25
ActiveWindow.ScrollRow = 24
ActiveWindow.ScrollRow = 21
ActiveWindow.ScrollRow = 14
ActiveWindow.ScrollRow = 11
ActiveWindow.ScrollRow = 4
ActiveWindow.ScrollRow = 1
Range("AA2").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Columns("AB:AB").Select
Application.CutCopyMode = False
Selection.Delete Shift:=xlToLeft
Columns("AC:AC").Select
Selection.Insert Shift:=xlToRight
Range("AC2").Select
ActiveCell.FormulaR1C1 = "=PROPER(RC[-1])"
Range("AC2").Select
Selection.Copy
ActiveWindow.ScrollRow = 2
ActiveWindow.ScrollRow = 3
ActiveWindow.ScrollRow = 4
ActiveWindow.ScrollRow = 5
ActiveWindow.ScrollRow = 8
ActiveWindow.ScrollRow = 12
ActiveWindow.ScrollRow = 16
ActiveWindow.ScrollRow = 29
ActiveWindow.ScrollRow = 35
ActiveWindow.ScrollRow = 53
ActiveWindow.ScrollRow = 60
ActiveWindow.ScrollRow = 69
ActiveWindow.ScrollRow = 88
ActiveWindow.ScrollRow = 96
ActiveWindow.ScrollRow = 103
ActiveWindow.ScrollRow = 112
ActiveWindow.ScrollRow = 127
Range("AC2:AC160").Select
ActiveSheet.Paste
Application.CutCopyMode = False
Selection.Copy
Range("AB2").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Columns("AC:AC").Select
Application.CutCopyMode = False
Selection.Delete Shift:=xlToLeft
Columns("AD:AD").Select
Selection.Insert Shift:=xlToRight
Range("AD2").Select
ActiveCell.FormulaR1C1 = "=PROPER(RC[-1])"
Range("AD2").Select
Selection.Copy
ActiveWindow.ScrollRow = 2
ActiveWindow.ScrollRow = 3
ActiveWindow.ScrollRow = 4
ActiveWindow.ScrollRow = 12
ActiveWindow.ScrollRow = 16
ActiveWindow.ScrollRow = 22
ActiveWindow.ScrollRow = 34
ActiveWindow.ScrollRow = 43
ActiveWindow.ScrollRow = 60
ActiveWindow.ScrollRow = 70
ActiveWindow.ScrollRow = 77
ActiveWindow.ScrollRow = 87
ActiveWindow.ScrollRow = 94
ActiveWindow.ScrollRow = 101
ActiveWindow.ScrollRow = 110
ActiveWindow.ScrollRow = 126
ActiveWindow.ScrollRow = 127
ActiveWindow.ScrollRow = 1
ActiveWindow.ScrollRow = 127
Range("AD2:AD161").Select
ActiveSheet.Paste
Application.CutCopyMode = False
Selection.Copy
Range("AC2").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Columns("AD:AD").Select
Application.CutCopyMode = False
Selection.Delete Shift:=xlToLeft
Range("Z29").Select
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 = 8
ActiveWindow.ScrollColumn = 7
ActiveWindow.ScrollColumn = 5
ActiveWindow.ScrollColumn = 4
ActiveWindow.ScrollColumn = 3
ActiveWindow.ScrollColumn = 2
ActiveWindow.ScrollColumn = 1
Columns("B:B").Select
Selection.Replace What:=" Rd", Replacement:=" Road ", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
Selection.Replace What:=" Ave ", Replacement:=" Avenue ", LookAt:=xlPart _
, SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
Selection.Replace What:=" Ave", Replacement:=" Avenue ", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
Selection.Replace What:=" St ", Replacement:=" Street ", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
Selection.Replace What:=" Blvd ", Replacement:=" Boulevard ", LookAt:= _
xlPart, SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
Selection.Replace What:=" Dr ", Replacement:=" Drive ", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
Selection.Replace What:=" Blvd.", Replacement:=" Boulevard", LookAt:= _
xlPart, SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
Selection.Replace What:=" Hwy", Replacement:=" Highway", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
Selection.Replace What:=" Pkwy", Replacement:=" Parkway", LookAt:=xlPart _
, SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
Selection.Replace What:=" Ste ", Replacement:=" Suite ", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
ActiveWindow.SmallScroll Down:=-57
Cells.Replace What:="'S", Replacement:="'s", LookAt:=xlPart, SearchOrder _
:=xlByRows, MatchCase:=True, SearchFormat:=False, ReplaceFormat:=False
Cells.Replace What:="'T", Replacement:="'t", LookAt:=xlPart, SearchOrder _
:=xlByRows, MatchCase:=True, SearchFormat:=False, ReplaceFormat:=False
ActiveWindow.SmallScroll Down:=-15
Selection.Replace What:=" St.", Replacement:=" Street", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=True, SearchFormat:=False, _
ReplaceFormat:=False
Selection.Replace What:=" St", Replacement:=" Street", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=True, SearchFormat:=False, _
ReplaceFormat:=False
Selection.Replace What:=" Streetreet", Replacement:=" Street", LookAt:= _
xlPart, SearchOrder:=xlByRows, MatchCase:=True, SearchFormat:=False, _
ReplaceFormat:=False
Selection.Replace What:=" Streeate", Replacement:=" State", LookAt:= _
xlPart, SearchOrder:=xlByRows, MatchCase:=True, SearchFormat:=False, _
ReplaceFormat:=False
Selection.Replace What:=" Avenue nue", Replacement:=" Avenue", LookAt:= _
xlPart, SearchOrder:=xlByRows, MatchCase:=True, SearchFormat:=False, _
ReplaceFormat:=False
Selection.Replace What:=" Blvd", Replacement:=" Boulevard", LookAt:= _
xlPart, SearchOrder:=xlByRows, MatchCase:=True, SearchFormat:=False, _
ReplaceFormat:=False
Selection.Replace What:=" 1St", Replacement:=" 1st", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=True, SearchFormat:=False, _
ReplaceFormat:=False
Selection.Replace What:=" 2Nd", Replacement:=" 2nd", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=True, SearchFormat:=False, _
ReplaceFormat:=False
Selection.Replace What:=" 3Rd", Replacement:=" 3rd", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=True, SearchFormat:=False, _
ReplaceFormat:=False
Selection.Replace What:=" 4Th", Replacement:=" 4th", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=True, SearchFormat:=False, _
ReplaceFormat:=False
Selection.Replace What:=" 5Th", Replacement:=" 5th", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=True, SearchFormat:=False, _
ReplaceFormat:=False
Selection.Replace What:=" 6Th", Replacement:=" 6th", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=True, SearchFormat:=False, _
ReplaceFormat:=False
Selection.Replace What:=" 7Th", Replacement:=" 7th", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=True, SearchFormat:=False, _
ReplaceFormat:=False
Selection.Replace What:=" 8Th", Replacement:=" 8th", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=True, SearchFormat:=False, _
ReplaceFormat:=False
Selection.Replace What:=" 9Th", Replacement:=" 9th", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=True, SearchFormat:=False, _
ReplaceFormat:=False
Selection.Replace What:=" 0Th", Replacement:=" 0th", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=True, SearchFormat:=False, _
ReplaceFormat:=False
Selection.Replace What:=" 1Th", Replacement:=" 1th", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=True, SearchFormat:=False, _
ReplaceFormat:=False
Selection.Replace What:=" 2Th", Replacement:=" 2th", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=True, SearchFormat:=False, _
ReplaceFormat:=False
Selection.Replace What:=" 3Th", Replacement:=" 3th", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=True, SearchFormat:=False, _
ReplaceFormat:=False
Selection.Replace What:=" 4Th", Replacement:=" 4th", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=True, SearchFormat:=False, _
ReplaceFormat:=False
Selection.Replace What:=" 5Th", Replacement:=" 5th", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=True, SearchFormat:=False, _
ReplaceFormat:=False
Selection.Replace What:=" 6Th", Replacement:=" 6th", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=True, SearchFormat:=False, _
ReplaceFormat:=False
Selection.Replace What:=" 7Th", Replacement:=" 7th", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=True, SearchFormat:=False, _
ReplaceFormat:=False
Selection.Replace What:=" 8Th", Replacement:=" 8th", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=True, SearchFormat:=False, _
ReplaceFormat:=False
Selection.Replace What:=" 9Th", Replacement:=" 9th", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=True, SearchFormat:=False, _
ReplaceFormat:=False
ActiveWindow.ScrollRow = 2
ActiveWindow.ScrollRow = 3
ActiveWindow.ScrollRow = 4
ActiveWindow.ScrollRow = 5
ActiveWindow.ScrollRow = 6
ActiveWindow.ScrollRow = 7
ActiveWindow.ScrollRow = 8
ActiveWindow.ScrollRow = 9
ActiveWindow.ScrollRow = 10
ActiveWindow.ScrollRow = 11
ActiveWindow.ScrollRow = 12
ActiveWindow.ScrollRow = 13
ActiveWindow.ScrollRow = 14
ActiveWindow.ScrollRow = 15
ActiveWindow.ScrollRow = 16
ActiveWindow.ScrollRow = 17
ActiveWindow.ScrollRow = 18
ActiveWindow.ScrollRow = 19
ActiveWindow.ScrollRow = 20
ActiveWindow.ScrollRow = 21
ActiveWindow.ScrollRow = 22
ActiveWindow.ScrollRow = 23
ActiveWindow.ScrollRow = 24
ActiveWindow.ScrollRow = 25
ActiveWindow.ScrollRow = 26
ActiveWindow.ScrollRow = 27
ActiveWindow.ScrollRow = 28
ActiveWindow.ScrollRow = 29
ActiveWindow.ScrollRow = 30
ActiveWindow.ScrollRow = 31
ActiveWindow.ScrollRow = 32
ActiveWindow.ScrollRow = 33
ActiveWindow.ScrollRow = 34
ActiveWindow.ScrollRow = 35
ActiveWindow.ScrollRow = 36
ActiveWindow.ScrollRow = 37
ActiveWindow.ScrollRow = 38
ActiveWindow.ScrollRow = 39
ActiveWindow.ScrollRow = 40
Selection.Replace What:=" Dr", Replacement:=" Drive", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=True, SearchFormat:=False, _
ReplaceFormat:=False
Selection.Replace What:=" Driveive", Replacement:=" Drive", LookAt:= _
xlPart, SearchOrder:=xlByRows, MatchCase:=True, SearchFormat:=False, _
ReplaceFormat:=False
Selection.Replace What:=" Ln", Replacement:=" Lane", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=True, SearchFormat:=False, _
ReplaceFormat:=False
ActiveWindow.ScrollRow = 39
ActiveWindow.ScrollRow = 38
ActiveWindow.ScrollRow = 37
ActiveWindow.ScrollRow = 36
ActiveWindow.ScrollRow = 35
ActiveWindow.ScrollRow = 34
ActiveWindow.ScrollRow = 33
ActiveWindow.ScrollRow = 32
ActiveWindow.ScrollRow = 31
ActiveWindow.ScrollRow = 30
ActiveWindow.ScrollRow = 29
ActiveWindow.ScrollRow = 28
ActiveWindow.ScrollRow = 27
ActiveWindow.ScrollRow = 26
ActiveWindow.ScrollRow = 25
ActiveWindow.ScrollRow = 24
ActiveWindow.ScrollRow = 23
ActiveWindow.ScrollRow = 22
ActiveWindow.ScrollRow = 21
ActiveWindow.ScrollRow = 20
ActiveWindow.ScrollRow = 19
ActiveWindow.ScrollRow = 18
ActiveWindow.ScrollRow = 17
ActiveWindow.ScrollRow = 16
ActiveWindow.ScrollRow = 15
ActiveWindow.ScrollRow = 14
ActiveWindow.ScrollRow = 13
ActiveWindow.ScrollRow = 12
ActiveWindow.ScrollRow = 11
ActiveWindow.ScrollRow = 10
ActiveWindow.ScrollRow = 9
ActiveWindow.ScrollRow = 8
ActiveWindow.ScrollRow = 7
ActiveWindow.ScrollRow = 6
ActiveWindow.ScrollRow = 5
ActiveWindow.ScrollRow = 4
ActiveWindow.ScrollRow = 3
ActiveWindow.ScrollRow = 2
ActiveWindow.ScrollRow = 1
Selection.Replace What:="P O", Replacement:="PO", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=True, SearchFormat:=False, _
ReplaceFormat:=False
Cells.Replace What:=" Hwy", Replacement:=" Highway", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=True, SearchFormat:=False, _
ReplaceFormat:=False
Columns("V:AA").Select
Cells.Replace What:=" And ", Replacement:=" and ", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=True, SearchFormat:=False, _
:=False, Transpose:=False
Sub Maros1()
'
' Macros1
'
'
'
Columns("H:H").Select
Selection.Insert Shift:=xlToRight
Range("H2").Select
ActiveCell.FormulaR1C1 = "=PROPER(RC[-1])"
Range("H2").Select
Selection.Copy
ActiveWindow.ScrollRow = 2
ActiveWindow.ScrollRow = 3
ActiveWindow.ScrollRow = 5
ActiveWindow.ScrollRow = 6
ActiveWindow.ScrollRow = 7
ActiveWindow.ScrollRow = 9
ActiveWindow.ScrollRow = 12
ActiveWindow.ScrollRow = 14
ActiveWindow.ScrollRow = 15
ActiveWindow.ScrollRow = 17
ActiveWindow.ScrollRow = 19
ActiveWindow.ScrollRow = 21
ActiveWindow.ScrollRow = 22
ActiveWindow.ScrollRow = 24
ActiveWindow.ScrollRow = 26
ActiveWindow.ScrollRow = 27
ActiveWindow.ScrollRow = 29
ActiveWindow.ScrollRow = 33
ActiveWindow.ScrollRow = 34
ActiveWindow.ScrollRow = 36
ActiveWindow.ScrollRow = 38
ActiveWindow.ScrollRow = 40
ActiveWindow.ScrollRow = 42
ActiveWindow.ScrollRow = 46
ActiveWindow.ScrollRow = 48
ActiveWindow.ScrollRow = 57
ActiveWindow.ScrollRow = 63
ActiveWindow.ScrollRow = 65
ActiveWindow.ScrollRow = 68
ActiveWindow.ScrollRow = 70
ActiveWindow.ScrollRow = 74
ActiveWindow.ScrollRow = 76
ActiveWindow.ScrollRow = 77
ActiveWindow.ScrollRow = 87
ActiveWindow.ScrollRow = 89
ActiveWindow.ScrollRow = 96
ActiveWindow.ScrollRow = 104
ActiveWindow.ScrollRow = 113
ActiveWindow.ScrollRow = 123
ActiveWindow.ScrollRow = 142
ActiveWindow.ScrollRow = 153
ActiveWindow.ScrollRow = 162
ActiveWindow.ScrollRow = 170
ActiveWindow.ScrollRow = 179
ActiveWindow.ScrollRow = 187
ActiveWindow.ScrollRow = 205
ActiveWindow.ScrollRow = 213
ActiveWindow.ScrollRow = 224
ActiveWindow.ScrollRow = 234
ActiveWindow.ScrollRow = 253
ActiveWindow.ScrollRow = 263
ActiveWindow.ScrollRow = 273
ActiveWindow.ScrollRow = 282
ActiveWindow.ScrollRow = 291
ActiveWindow.ScrollRow = 299
ActiveWindow.ScrollRow = 306
ActiveWindow.ScrollRow = 314
ActiveWindow.ScrollRow = 316
ActiveWindow.ScrollRow = 320
ActiveWindow.ScrollRow = 321
ActiveWindow.ScrollRow = 323
ActiveWindow.ScrollRow = 326
ActiveWindow.ScrollRow = 328
ActiveWindow.ScrollRow = 329
ActiveWindow.ScrollRow = 331
ActiveWindow.ScrollRow = 332
ActiveWindow.ScrollRow = 335
ActiveWindow.ScrollRow = 337
ActiveWindow.ScrollRow = 338
ActiveWindow.ScrollRow = 340
ActiveWindow.ScrollRow = 342
ActiveWindow.ScrollRow = 343
ActiveWindow.ScrollRow = 344
ActiveWindow.ScrollRow = 345
ActiveWindow.ScrollRow = 346
ActiveWindow.ScrollRow = 347
ActiveWindow.ScrollRow = 348
ActiveWindow.ScrollRow = 349
ActiveWindow.ScrollRow = 350
ActiveWindow.ScrollRow = 351
ActiveWindow.ScrollRow = 352
ActiveWindow.ScrollRow = 353
ActiveWindow.ScrollRow = 354
ActiveWindow.ScrollRow = 355
ActiveWindow.ScrollRow = 356
ActiveWindow.ScrollRow = 357
ActiveWindow.ScrollRow = 358
ActiveWindow.ScrollRow = 360
ActiveWindow.ScrollRow = 362
ActiveWindow.ScrollRow = 363
ActiveWindow.ScrollRow = 364
ActiveWindow.ScrollRow = 366
ActiveWindow.ScrollRow = 367
ActiveWindow.ScrollRow = 368
Range("H2:H401").Select
ActiveSheet.Paste
Application.CutCopyMode = False
Selection.Copy
Range("G2").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("H2").Select
Application.CutCopyMode = False
ActiveCell.FormulaR1C1 = "=PROPER(RC[1])"
Range("H2").Select
Selection.Copy
ActiveWindow.ScrollRow = 2
ActiveWindow.ScrollRow = 4
ActiveWindow.ScrollRow = 5
ActiveWindow.ScrollRow = 6
ActiveWindow.ScrollRow = 14
ActiveWindow.ScrollRow = 17
ActiveWindow.ScrollRow = 24
ActiveWindow.ScrollRow = 38
ActiveWindow.ScrollRow = 48
ActiveWindow.ScrollRow = 58
ActiveWindow.ScrollRow = 67
ActiveWindow.ScrollRow = 85
ActiveWindow.ScrollRow = 93
ActiveWindow.ScrollRow = 110
ActiveWindow.ScrollRow = 118
ActiveWindow.ScrollRow = 135
ActiveWindow.ScrollRow = 142
ActiveWindow.ScrollRow = 150
ActiveWindow.ScrollRow = 158
ActiveWindow.ScrollRow = 167
ActiveWindow.ScrollRow = 175
ActiveWindow.ScrollRow = 184
ActiveWindow.ScrollRow = 192
ActiveWindow.ScrollRow = 207
ActiveWindow.ScrollRow = 217
ActiveWindow.ScrollRow = 224
ActiveWindow.ScrollRow = 232
ActiveWindow.ScrollRow = 249
ActiveWindow.ScrollRow = 258
ActiveWindow.ScrollRow = 266
ActiveWindow.ScrollRow = 275
ActiveWindow.ScrollRow = 283
ActiveWindow.ScrollRow = 285
ActiveWindow.ScrollRow = 292
ActiveWindow.ScrollRow = 299
ActiveWindow.ScrollRow = 307
ActiveWindow.ScrollRow = 314
ActiveWindow.ScrollRow = 316
ActiveWindow.ScrollRow = 326
ActiveWindow.ScrollRow = 331
ActiveWindow.ScrollRow = 333
ActiveWindow.ScrollRow = 334
ActiveWindow.ScrollRow = 335
ActiveWindow.ScrollRow = 338
ActiveWindow.ScrollRow = 339
ActiveWindow.ScrollRow = 340
ActiveWindow.ScrollRow = 341
ActiveWindow.ScrollRow = 342
ActiveWindow.ScrollRow = 343
ActiveWindow.ScrollRow = 344
ActiveWindow.ScrollRow = 345
ActiveWindow.ScrollRow = 346
ActiveWindow.ScrollRow = 348
ActiveWindow.ScrollRow = 352
ActiveWindow.ScrollRow = 353
ActiveWindow.ScrollRow = 355
ActiveWindow.ScrollRow = 356
ActiveWindow.ScrollRow = 358
ActiveWindow.ScrollRow = 360
ActiveWindow.ScrollRow = 361
ActiveWindow.ScrollRow = 362
ActiveWindow.ScrollRow = 364
ActiveWindow.ScrollRow = 365
ActiveWindow.ScrollRow = 367
ActiveWindow.ScrollRow = 368
Range("H2:H401").Select
ActiveSheet.Paste
Application.CutCopyMode = False
Selection.Copy
Range("I2").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Columns("H:H").Select
Application.CutCopyMode = False
Selection.Delete Shift:=xlToLeft
Range("I4").Select
Columns("D:D").Select
Range("D19").Activate
Columns("D:D").Select
Selection.Insert Shift:=xlToRight
Range("D2").Select
ActiveWindow.SmallScroll Down:=-15
ActiveCell.FormulaR1C1 = "=PROPER(RC[-1])"
Range("D2").Select
Selection.Copy
ActiveWindow.ScrollRow = 2
ActiveWindow.ScrollRow = 3
ActiveWindow.ScrollRow = 4
ActiveWindow.ScrollRow = 11
ActiveWindow.ScrollRow = 16
ActiveWindow.ScrollRow = 30
ActiveWindow.ScrollRow = 38
ActiveWindow.ScrollRow = 49
ActiveWindow.ScrollRow = 60
ActiveWindow.ScrollRow = 70
ActiveWindow.ScrollRow = 89
ActiveWindow.ScrollRow = 100
ActiveWindow.ScrollRow = 124
ActiveWindow.ScrollRow = 137
ActiveWindow.ScrollRow = 151
ActiveWindow.ScrollRow = 171
ActiveWindow.ScrollRow = 182
ActiveWindow.ScrollRow = 191
ActiveWindow.ScrollRow = 200
ActiveWindow.ScrollRow = 211
ActiveWindow.ScrollRow = 226
ActiveWindow.ScrollRow = 233
ActiveWindow.ScrollRow = 240
ActiveWindow.ScrollRow = 244
ActiveWindow.ScrollRow = 1
ActiveWindow.ScrollRow = 244
ActiveWindow.SmallScroll Down:=129
Range("D2:D401").Select
ActiveSheet.Paste
Application.CutCopyMode = False
Selection.Copy
Range("C2").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("D2").Select
Application.CutCopyMode = False
ActiveCell.FormulaR1C1 = "=PROPER(RC[-1])"
Range("D2").Select
ActiveCell.FormulaR1C1 = "=PROPER(RC[-2])"
Range("D2").Select
Selection.Copy
ActiveWindow.ScrollRow = 2
ActiveWindow.ScrollRow = 3
ActiveWindow.ScrollRow = 5
ActiveWindow.ScrollRow = 6
ActiveWindow.ScrollRow = 7
ActiveWindow.ScrollRow = 9
ActiveWindow.ScrollRow = 25
ActiveWindow.ScrollRow = 34
ActiveWindow.ScrollRow = 44
ActiveWindow.ScrollRow = 53
ActiveWindow.ScrollRow = 72
ActiveWindow.ScrollRow = 79
ActiveWindow.ScrollRow = 87
ActiveWindow.ScrollRow = 102
ActiveWindow.ScrollRow = 106
ActiveWindow.ScrollRow = 113
ActiveWindow.ScrollRow = 116
ActiveWindow.ScrollRow = 124
ActiveWindow.ScrollRow = 132
ActiveWindow.ScrollRow = 141
ActiveWindow.ScrollRow = 159
ActiveWindow.ScrollRow = 169
ActiveWindow.ScrollRow = 188
ActiveWindow.ScrollRow = 197
ActiveWindow.ScrollRow = 207
ActiveWindow.ScrollRow = 227
ActiveWindow.ScrollRow = 236
ActiveWindow.ScrollRow = 256
ActiveWindow.ScrollRow = 263
ActiveWindow.ScrollRow = 270
ActiveWindow.ScrollRow = 287
ActiveWindow.ScrollRow = 294
ActiveWindow.ScrollRow = 302
ActiveWindow.ScrollRow = 310
ActiveWindow.ScrollRow = 312
ActiveWindow.ScrollRow = 319
ActiveWindow.ScrollRow = 323
ActiveWindow.ScrollRow = 325
ActiveWindow.ScrollRow = 327
ActiveWindow.ScrollRow = 328
ActiveWindow.ScrollRow = 331
ActiveWindow.ScrollRow = 333
ActiveWindow.ScrollRow = 335
ActiveWindow.ScrollRow = 337
ActiveWindow.ScrollRow = 338
ActiveWindow.ScrollRow = 339
ActiveWindow.ScrollRow = 340
ActiveWindow.ScrollRow = 342
ActiveWindow.ScrollRow = 343
ActiveWindow.ScrollRow = 344
ActiveWindow.ScrollRow = 346
ActiveWindow.ScrollRow = 347
ActiveWindow.ScrollRow = 348
ActiveWindow.ScrollRow = 349
ActiveWindow.ScrollRow = 350
ActiveWindow.ScrollRow = 351
ActiveWindow.ScrollRow = 352
ActiveWindow.ScrollRow = 353
ActiveWindow.ScrollRow = 354
ActiveWindow.ScrollRow = 355
ActiveWindow.ScrollRow = 357
ActiveWindow.ScrollRow = 358
ActiveWindow.ScrollRow = 361
ActiveWindow.ScrollRow = 362
ActiveWindow.ScrollRow = 364
ActiveWindow.ScrollRow = 366
ActiveWindow.ScrollRow = 367
ActiveWindow.ScrollRow = 368
Range("D2:D401").Select
ActiveSheet.Paste
Application.CutCopyMode = False
Selection.Copy
Range("B2").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Columns("D:D").Select
Application.CutCopyMode = False
Selection.Delete Shift:=xlToLeft
Range("E6").Select
Columns("C:C").Select
Selection.Insert Shift:=xlToRight
Range("C2").Select
ActiveCell.FormulaR1C1 = "=PROPER(RC[-1])"
Range("C2").Select
Selection.Copy
ActiveWindow.SmallScroll Down:=138
Range("C2:C160").Select
ActiveSheet.Paste
Application.CutCopyMode = False
Selection.Copy
Range("B2").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Columns("C:C").Select
Application.CutCopyMode = False
Selection.Delete Shift:=xlToLeft
Columns("D:D").Select
Selection.Insert Shift:=xlToRight
Range("D2").Select
ActiveCell.FormulaR1C1 = "=PROPER(RC[-1])"
Range("D2").Select
Selection.Copy
ActiveWindow.SmallScroll Down:=135
Application.CutCopyMode = False
ActiveCell.FormulaR1C1 = "=PROPER(RC[-1])"
Range("D2").Select
ActiveWindow.SmallScroll Down:=147
Range("D2:D167").Select
ActiveWindow.SmallScroll Down:=-21
ActiveWindow.ScrollRow = 1
Range("D2").Select
Selection.Copy
ActiveWindow.ScrollRow = 2
ActiveWindow.ScrollRow = 3
ActiveWindow.ScrollRow = 4
ActiveWindow.ScrollRow = 5
ActiveWindow.ScrollRow = 6
ActiveWindow.ScrollRow = 9
ActiveWindow.ScrollRow = 10
ActiveWindow.ScrollRow = 13
ActiveWindow.ScrollRow = 20
ActiveWindow.ScrollRow = 24
ActiveWindow.ScrollRow = 27
ActiveWindow.ScrollRow = 31
ActiveWindow.ScrollRow = 39
ActiveWindow.ScrollRow = 44
ActiveWindow.ScrollRow = 47
ActiveWindow.ScrollRow = 56
ActiveWindow.ScrollRow = 60
ActiveWindow.ScrollRow = 64
ActiveWindow.ScrollRow = 68
ActiveWindow.ScrollRow = 71
ActiveWindow.ScrollRow = 75
ActiveWindow.ScrollRow = 81
ActiveWindow.ScrollRow = 84
ActiveWindow.ScrollRow = 85
ActiveWindow.ScrollRow = 89
ActiveWindow.ScrollRow = 90
ActiveWindow.ScrollRow = 96
ActiveWindow.ScrollRow = 100
ActiveWindow.ScrollRow = 103
ActiveWindow.ScrollRow = 106
ActiveWindow.ScrollRow = 110
ActiveWindow.ScrollRow = 113
ActiveWindow.ScrollRow = 116
ActiveWindow.ScrollRow = 118
ActiveWindow.ScrollRow = 121
ActiveWindow.ScrollRow = 124
ActiveWindow.ScrollRow = 127
Range("D2:D160").Select
ActiveSheet.Paste
Application.CutCopyMode = False
Selection.Copy
Range("C2").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Columns("D:D").Select
Application.CutCopyMode = False
Selection.Delete Shift:=xlToLeft
Columns("H:H").Select
Selection.Insert Shift:=xlToRight
Range("H2").Select
ActiveCell.FormulaR1C1 = "=PROPER(RC[-1])"
Range("H2").Select
Selection.Copy
ActiveWindow.ScrollRow = 2
ActiveWindow.ScrollRow = 3
ActiveWindow.ScrollRow = 4
ActiveWindow.ScrollRow = 6
ActiveWindow.ScrollRow = 10
ActiveWindow.ScrollRow = 14
ActiveWindow.ScrollRow = 18
ActiveWindow.ScrollRow = 25
ActiveWindow.ScrollRow = 30
ActiveWindow.ScrollRow = 38
ActiveWindow.ScrollRow = 42
ActiveWindow.ScrollRow = 51
ActiveWindow.ScrollRow = 54
ActiveWindow.ScrollRow = 58
ActiveWindow.ScrollRow = 66
ActiveWindow.ScrollRow = 69
ActiveWindow.ScrollRow = 71
ActiveWindow.ScrollRow = 73
ActiveWindow.ScrollRow = 74
ActiveWindow.ScrollRow = 76
ActiveWindow.ScrollRow = 77
ActiveWindow.ScrollRow = 78
ActiveWindow.ScrollRow = 79
ActiveWindow.ScrollRow = 80
ActiveWindow.ScrollRow = 93
ActiveWindow.ScrollRow = 96
ActiveWindow.ScrollRow = 99
ActiveWindow.ScrollRow = 103
ActiveWindow.ScrollRow = 104
ActiveWindow.ScrollRow = 105
ActiveWindow.ScrollRow = 106
ActiveWindow.ScrollRow = 107
ActiveWindow.ScrollRow = 108
ActiveWindow.ScrollRow = 109
ActiveWindow.ScrollRow = 110
ActiveWindow.ScrollRow = 111
ActiveWindow.ScrollRow = 112
ActiveWindow.ScrollRow = 113
ActiveWindow.ScrollRow = 114
ActiveWindow.ScrollRow = 115
ActiveWindow.ScrollRow = 116
ActiveWindow.ScrollRow = 117
ActiveWindow.ScrollRow = 118
ActiveWindow.ScrollRow = 119
ActiveWindow.ScrollRow = 120
ActiveWindow.ScrollRow = 121
ActiveWindow.ScrollRow = 122
ActiveWindow.ScrollRow = 123
ActiveWindow.ScrollRow = 124
ActiveWindow.ScrollRow = 125
ActiveWindow.ScrollRow = 126
ActiveWindow.ScrollRow = 127
Range("H2:H160").Select
ActiveSheet.Paste
Application.CutCopyMode = False
Selection.Copy
Range("G2").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Columns("H:H").Select
Application.CutCopyMode = False
Selection.Delete Shift:=xlToLeft
Columns("I:I").Select
Selection.Insert Shift:=xlToRight
Range("I2").Select
ActiveCell.FormulaR1C1 = "=PROPER(RC[-1])"
Range("I2").Select
Selection.Copy
ActiveWindow.ScrollRow = 2
ActiveWindow.ScrollRow = 3
ActiveWindow.ScrollRow = 4
ActiveWindow.ScrollRow = 6
ActiveWindow.ScrollRow = 9
ActiveWindow.ScrollRow = 17
ActiveWindow.ScrollRow = 21
ActiveWindow.ScrollRow = 25
ActiveWindow.ScrollRow = 33
ActiveWindow.ScrollRow = 37
ActiveWindow.ScrollRow = 47
ActiveWindow.ScrollRow = 52
ActiveWindow.ScrollRow = 57
ActiveWindow.ScrollRow = 69
ActiveWindow.ScrollRow = 75
ActiveWindow.ScrollRow = 82
ActiveWindow.ScrollRow = 87
ActiveWindow.ScrollRow = 97
ActiveWindow.ScrollRow = 101
ActiveWindow.ScrollRow = 106
ActiveWindow.ScrollRow = 110
ActiveWindow.ScrollRow = 113
ActiveWindow.ScrollRow = 120
ActiveWindow.ScrollRow = 123
ActiveWindow.ScrollRow = 126
ActiveWindow.ScrollRow = 127
Range("I2:I160").Select
ActiveSheet.Paste
Application.CutCopyMode = False
Selection.Copy
Range("H2").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Columns("I:I").Select
Application.CutCopyMode = False
Selection.Delete Shift:=xlToLeft
ActiveWindow.SmallScroll Down:=-9
ActiveWindow.ScrollColumn = 2
ActiveWindow.ScrollColumn = 3
ActiveWindow.ScrollColumn = 4
ActiveWindow.ScrollColumn = 5
ActiveWindow.ScrollColumn = 6
ActiveWindow.ScrollColumn = 7
ActiveWindow.ScrollColumn = 8
ActiveWindow.ScrollColumn = 9
ActiveWindow.ScrollColumn = 10
ActiveWindow.ScrollColumn = 11
ActiveWindow.ScrollColumn = 12
ActiveWindow.ScrollColumn = 13
ActiveWindow.ScrollColumn = 14
ActiveWindow.ScrollColumn = 15
ActiveWindow.ScrollColumn = 16
ActiveWindow.ScrollColumn = 17
ActiveWindow.ScrollColumn = 18
ActiveWindow.ScrollColumn = 19
Columns("W:W").Select
Selection.Insert Shift:=xlToRight
Range("W2").Select
ActiveCell.FormulaR1C1 = "=PROPER(RC[-1])"
Range("W2").Select
Selection.Copy
ActiveWindow.SmallScroll Down:=9
ActiveWindow.ScrollRow = 11
ActiveWindow.ScrollRow = 12
ActiveWindow.ScrollRow = 13
ActiveWindow.ScrollRow = 14
ActiveWindow.ScrollRow = 17
ActiveWindow.ScrollRow = 21
ActiveWindow.ScrollRow = 27
ActiveWindow.ScrollRow = 30
ActiveWindow.ScrollRow = 37
ActiveWindow.ScrollRow = 41
ActiveWindow.ScrollRow = 48
ActiveWindow.ScrollRow = 52
ActiveWindow.ScrollRow = 59
ActiveWindow.ScrollRow = 63
ActiveWindow.ScrollRow = 66
ActiveWindow.ScrollRow = 67
ActiveWindow.ScrollRow = 70
ActiveWindow.ScrollRow = 71
ActiveWindow.ScrollRow = 72
ActiveWindow.ScrollRow = 73
ActiveWindow.ScrollRow = 74
ActiveWindow.ScrollRow = 75
ActiveWindow.ScrollRow = 76
ActiveWindow.ScrollRow = 77
ActiveWindow.ScrollRow = 78
ActiveWindow.ScrollRow = 79
ActiveWindow.ScrollRow = 80
ActiveWindow.ScrollRow = 81
ActiveWindow.ScrollRow = 82
ActiveWindow.ScrollRow = 83
ActiveWindow.ScrollRow = 84
ActiveWindow.ScrollRow = 85
ActiveWindow.ScrollRow = 86
ActiveWindow.ScrollRow = 87
ActiveWindow.ScrollRow = 88
ActiveWindow.ScrollRow = 89
ActiveWindow.ScrollRow = 90
ActiveWindow.ScrollRow = 91
ActiveWindow.ScrollRow = 92
ActiveWindow.ScrollRow = 93
ActiveWindow.ScrollRow = 94
ActiveWindow.ScrollRow = 95
ActiveWindow.ScrollRow = 96
ActiveWindow.ScrollRow = 97
ActiveWindow.ScrollRow = 98
ActiveWindow.ScrollRow = 99
ActiveWindow.ScrollRow = 100
ActiveWindow.ScrollRow = 101
ActiveWindow.ScrollRow = 102
ActiveWindow.ScrollRow = 103
ActiveWindow.ScrollRow = 104
ActiveWindow.ScrollRow = 105
ActiveWindow.ScrollRow = 106
ActiveWindow.ScrollRow = 107
ActiveWindow.ScrollRow = 108
ActiveWindow.ScrollRow = 109
ActiveWindow.ScrollRow = 110
ActiveWindow.ScrollRow = 111
ActiveWindow.ScrollRow = 112
ActiveWindow.ScrollRow = 113
ActiveWindow.ScrollRow = 114
ActiveWindow.ScrollRow = 115
ActiveWindow.ScrollRow = 116
ActiveWindow.ScrollRow = 117
ActiveWindow.ScrollRow = 118
ActiveWindow.ScrollRow = 119
ActiveWindow.ScrollRow = 120
ActiveWindow.ScrollRow = 121
ActiveWindow.ScrollRow = 122
ActiveWindow.ScrollRow = 123
ActiveWindow.ScrollRow = 124
ActiveWindow.ScrollRow = 125
ActiveWindow.ScrollRow = 126
ActiveWindow.ScrollRow = 127
Range("W2:W160").Select
ActiveSheet.Paste
Application.CutCopyMode = False
Selection.Copy
Range("V2").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Columns("W:W").Select
Application.CutCopyMode = False
Selection.Delete Shift:=xlToLeft
Columns("X:X").Select
Selection.Insert Shift:=xlToRight
Range("X2").Select
ActiveCell.FormulaR1C1 = "=PROPER(RC[-1])"
Range("X2").Select
Selection.Copy
ActiveWindow.ScrollRow = 2
ActiveWindow.ScrollRow = 3
ActiveWindow.ScrollRow = 4
ActiveWindow.ScrollRow = 5
ActiveWindow.ScrollRow = 6
ActiveWindow.ScrollRow = 11
ActiveWindow.ScrollRow = 15
ActiveWindow.ScrollRow = 22
ActiveWindow.ScrollRow = 27
ActiveWindow.ScrollRow = 30
ActiveWindow.ScrollRow = 41
ActiveWindow.ScrollRow = 46
ActiveWindow.ScrollRow = 57
ActiveWindow.ScrollRow = 61
ActiveWindow.ScrollRow = 68
ActiveWindow.ScrollRow = 76
ActiveWindow.ScrollRow = 81
ActiveWindow.ScrollRow = 86
ActiveWindow.ScrollRow = 90
ActiveWindow.ScrollRow = 99
ActiveWindow.ScrollRow = 104
ActiveWindow.ScrollRow = 109
ActiveWindow.ScrollRow = 114
ActiveWindow.ScrollRow = 119
ActiveWindow.ScrollRow = 127
ActiveWindow.ScrollRow = 1
ActiveWindow.ScrollRow = 2
ActiveWindow.ScrollRow = 3
ActiveWindow.ScrollRow = 4
ActiveWindow.ScrollRow = 5
ActiveWindow.ScrollRow = 6
ActiveWindow.ScrollRow = 9
ActiveWindow.ScrollRow = 15
ActiveWindow.ScrollRow = 19
ActiveWindow.ScrollRow = 22
ActiveWindow.ScrollRow = 29
ActiveWindow.ScrollRow = 33
ActiveWindow.ScrollRow = 37
ActiveWindow.ScrollRow = 47
ActiveWindow.ScrollRow = 53
ActiveWindow.ScrollRow = 58
ActiveWindow.ScrollRow = 64
ActiveWindow.ScrollRow = 77
ActiveWindow.ScrollRow = 84
ActiveWindow.ScrollRow = 92
ActiveWindow.ScrollRow = 102
ActiveWindow.ScrollRow = 106
ActiveWindow.ScrollRow = 110
ActiveWindow.ScrollRow = 114
ActiveWindow.ScrollRow = 117
ActiveWindow.ScrollRow = 120
ActiveWindow.ScrollRow = 123
ActiveWindow.ScrollRow = 127
ActiveWindow.ScrollRow = 1
ActiveWindow.ScrollRow = 127
Range("X2:X160").Select
ActiveSheet.Paste
Application.CutCopyMode = False
Selection.Copy
Range("W2").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Columns("X:X").Select
Application.CutCopyMode = False
Selection.Delete Shift:=xlToLeft
Columns("Y:Y").Select
Selection.Insert Shift:=xlToRight
Range("Y2").Select
ActiveCell.FormulaR1C1 = "=PROPER(RC[-1])"
Range("Y2").Select
Selection.Copy
ActiveWindow.ScrollRow = 2
ActiveWindow.ScrollRow = 3
ActiveWindow.ScrollRow = 4
ActiveWindow.ScrollRow = 5
ActiveWindow.ScrollRow = 8
ActiveWindow.ScrollRow = 15
ActiveWindow.ScrollRow = 20
ActiveWindow.ScrollRow = 25
ActiveWindow.ScrollRow = 35
ActiveWindow.ScrollRow = 43
ActiveWindow.ScrollRow = 48
ActiveWindow.ScrollRow = 57
ActiveWindow.ScrollRow = 61
ActiveWindow.ScrollRow = 66
ActiveWindow.ScrollRow = 77
ActiveWindow.ScrollRow = 82
ActiveWindow.ScrollRow = 86
ActiveWindow.ScrollRow = 95
ActiveWindow.ScrollRow = 97
ActiveWindow.ScrollRow = 99
ActiveWindow.ScrollRow = 100
ActiveWindow.ScrollRow = 101
ActiveWindow.ScrollRow = 102
ActiveWindow.ScrollRow = 107
ActiveWindow.ScrollRow = 108
ActiveWindow.ScrollRow = 110
ActiveWindow.ScrollRow = 111
ActiveWindow.ScrollRow = 112
ActiveWindow.ScrollRow = 113
ActiveWindow.ScrollRow = 114
ActiveWindow.ScrollRow = 115
ActiveWindow.ScrollRow = 116
ActiveWindow.ScrollRow = 119
ActiveWindow.ScrollRow = 122
ActiveWindow.ScrollRow = 127
Range("Y2:Y160").Select
ActiveSheet.Paste
Application.CutCopyMode = False
Selection.Copy
Range("X2").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Columns("Y:Y").Select
Application.CutCopyMode = False
Selection.Delete Shift:=xlToLeft
Columns("Z:Z").Select
Selection.Insert Shift:=xlToRight
Range("Z2").Select
ActiveCell.FormulaR1C1 = "=PROPER(RC[-1])"
Range("Z2").Select
Selection.Copy
ActiveWindow.ScrollRow = 2
ActiveWindow.ScrollRow = 3
ActiveWindow.ScrollRow = 4
ActiveWindow.ScrollRow = 13
ActiveWindow.ScrollRow = 16
ActiveWindow.ScrollRow = 24
ActiveWindow.ScrollRow = 27
ActiveWindow.ScrollRow = 34
ActiveWindow.ScrollRow = 37
ActiveWindow.ScrollRow = 41
ActiveWindow.ScrollRow = 49
ActiveWindow.ScrollRow = 53
ActiveWindow.ScrollRow = 57
ActiveWindow.ScrollRow = 64
ActiveWindow.ScrollRow = 68
ActiveWindow.ScrollRow = 72
ActiveWindow.ScrollRow = 79
ActiveWindow.ScrollRow = 81
ActiveWindow.ScrollRow = 82
ActiveWindow.ScrollRow = 88
ActiveWindow.ScrollRow = 91
ActiveWindow.ScrollRow = 95
ActiveWindow.ScrollRow = 96
ActiveWindow.ScrollRow = 97
ActiveWindow.ScrollRow = 100
ActiveWindow.ScrollRow = 101
ActiveWindow.ScrollRow = 105
ActiveWindow.ScrollRow = 106
ActiveWindow.ScrollRow = 108
ActiveWindow.ScrollRow = 111
ActiveWindow.ScrollRow = 112
ActiveWindow.ScrollRow = 113
ActiveWindow.ScrollRow = 114
ActiveWindow.ScrollRow = 115
ActiveWindow.ScrollRow = 116
ActiveWindow.ScrollRow = 117
ActiveWindow.ScrollRow = 118
ActiveWindow.ScrollRow = 119
ActiveWindow.ScrollRow = 120
ActiveWindow.ScrollRow = 121
ActiveWindow.ScrollRow = 122
ActiveWindow.ScrollRow = 123
ActiveWindow.ScrollRow = 124
ActiveWindow.ScrollRow = 125
ActiveWindow.ScrollRow = 126
ActiveWindow.ScrollRow = 127
Range("Z2:Z160").Select
ActiveSheet.Paste
Application.CutCopyMode = False
Selection.Copy
Range("Y2").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Columns("Z:Z").Select
Application.CutCopyMode = False
Selection.Delete Shift:=xlToLeft
Columns("AA:AA").Select
Selection.Insert Shift:=xlToRight
Range("AA2").Select
ActiveCell.FormulaR1C1 = "=PROPER(RC[-1])"
Range("AA2").Select
Selection.Copy
ActiveWindow.ScrollRow = 2
ActiveWindow.ScrollRow = 3
ActiveWindow.ScrollRow = 4
ActiveWindow.ScrollRow = 5
ActiveWindow.ScrollRow = 8
ActiveWindow.ScrollRow = 14
ActiveWindow.ScrollRow = 18
ActiveWindow.ScrollRow = 23
ActiveWindow.ScrollRow = 31
ActiveWindow.ScrollRow = 36
ActiveWindow.ScrollRow = 40
ActiveWindow.ScrollRow = 46
ActiveWindow.ScrollRow = 50
ActiveWindow.ScrollRow = 53
ActiveWindow.ScrollRow = 59
ActiveWindow.ScrollRow = 63
ActiveWindow.ScrollRow = 66
ActiveWindow.ScrollRow = 70
ActiveWindow.ScrollRow = 74
ActiveWindow.ScrollRow = 82
ActiveWindow.ScrollRow = 86
ActiveWindow.ScrollRow = 89
ActiveWindow.ScrollRow = 92
ActiveWindow.ScrollRow = 95
ActiveWindow.ScrollRow = 97
ActiveWindow.ScrollRow = 98
ActiveWindow.ScrollRow = 101
ActiveWindow.ScrollRow = 102
ActiveWindow.ScrollRow = 103
ActiveWindow.ScrollRow = 104
ActiveWindow.ScrollRow = 105
ActiveWindow.ScrollRow = 106
ActiveWindow.ScrollRow = 107
ActiveWindow.ScrollRow = 108
ActiveWindow.ScrollRow = 109
ActiveWindow.ScrollRow = 110
ActiveWindow.ScrollRow = 111
ActiveWindow.ScrollRow = 112
ActiveWindow.ScrollRow = 113
ActiveWindow.ScrollRow = 114
ActiveWindow.ScrollRow = 115
ActiveWindow.ScrollRow = 116
ActiveWindow.ScrollRow = 117
ActiveWindow.ScrollRow = 118
ActiveWindow.ScrollRow = 119
ActiveWindow.ScrollRow = 120
ActiveWindow.ScrollRow = 121
ActiveWindow.ScrollRow = 122
ActiveWindow.ScrollRow = 123
ActiveWindow.ScrollRow = 124
ActiveWindow.ScrollRow = 126
ActiveWindow.ScrollRow = 127
Range("AA2:AA160").Select
ActiveSheet.Paste
Application.CutCopyMode = False
Selection.Copy
Range("Z2").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Columns("AA:AA").Select
Application.CutCopyMode = False
Selection.Delete Shift:=xlToLeft
Columns("AB:AB").Select
Selection.Insert Shift:=xlToRight
Range("AB2").Select
ActiveCell.FormulaR1C1 = "=PROPER(RC[-1])"
Range("AB2").Select
Selection.Copy
ActiveWindow.ScrollRow = 2
ActiveWindow.ScrollRow = 3
ActiveWindow.ScrollRow = 6
ActiveWindow.ScrollRow = 7
ActiveWindow.ScrollRow = 17
ActiveWindow.ScrollRow = 23
ActiveWindow.ScrollRow = 31
ActiveWindow.ScrollRow = 44
ActiveWindow.ScrollRow = 49
ActiveWindow.ScrollRow = 56
ActiveWindow.ScrollRow = 64
ActiveWindow.ScrollRow = 68
ActiveWindow.ScrollRow = 71
ActiveWindow.ScrollRow = 75
ActiveWindow.ScrollRow = 93
ActiveWindow.ScrollRow = 96
ActiveWindow.ScrollRow = 99
ActiveWindow.ScrollRow = 101
ActiveWindow.ScrollRow = 102
ActiveWindow.ScrollRow = 103
ActiveWindow.ScrollRow = 104
ActiveWindow.ScrollRow = 105
ActiveWindow.ScrollRow = 106
ActiveWindow.ScrollRow = 109
ActiveWindow.ScrollRow = 112
ActiveWindow.ScrollRow = 114
ActiveWindow.ScrollRow = 117
ActiveWindow.ScrollRow = 118
ActiveWindow.ScrollRow = 119
ActiveWindow.ScrollRow = 120
ActiveWindow.ScrollRow = 121
ActiveWindow.ScrollRow = 122
ActiveWindow.ScrollRow = 123
ActiveWindow.ScrollRow = 124
ActiveWindow.ScrollRow = 125
ActiveWindow.ScrollRow = 126
ActiveWindow.ScrollRow = 127
Range("AB2:AB160").Select
Application.CutCopyMode = False
Selection.Copy
ActiveWindow.ScrollRow = 126
ActiveWindow.ScrollRow = 125
ActiveWindow.ScrollRow = 124
ActiveWindow.ScrollRow = 118
ActiveWindow.ScrollRow = 114
ActiveWindow.ScrollRow = 110
ActiveWindow.ScrollRow = 101
ActiveWindow.ScrollRow = 91
ActiveWindow.ScrollRow = 88
ActiveWindow.ScrollRow = 82
ActiveWindow.ScrollRow = 68
ActiveWindow.ScrollRow = 63
ActiveWindow.ScrollRow = 54
ActiveWindow.ScrollRow = 39
ActiveWindow.ScrollRow = 37
ActiveWindow.ScrollRow = 36
ActiveWindow.ScrollRow = 34
ActiveWindow.ScrollRow = 32
ActiveWindow.ScrollRow = 31
ActiveWindow.ScrollRow = 25
ActiveWindow.ScrollRow = 24
ActiveWindow.ScrollRow = 21
ActiveWindow.ScrollRow = 14
ActiveWindow.ScrollRow = 11
ActiveWindow.ScrollRow = 4
ActiveWindow.ScrollRow = 1
Range("AA2").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Columns("AB:AB").Select
Application.CutCopyMode = False
Selection.Delete Shift:=xlToLeft
Columns("AC:AC").Select
Selection.Insert Shift:=xlToRight
Range("AC2").Select
ActiveCell.FormulaR1C1 = "=PROPER(RC[-1])"
Range("AC2").Select
Selection.Copy
ActiveWindow.ScrollRow = 2
ActiveWindow.ScrollRow = 3
ActiveWindow.ScrollRow = 4
ActiveWindow.ScrollRow = 5
ActiveWindow.ScrollRow = 8
ActiveWindow.ScrollRow = 12
ActiveWindow.ScrollRow = 16
ActiveWindow.ScrollRow = 29
ActiveWindow.ScrollRow = 35
ActiveWindow.ScrollRow = 53
ActiveWindow.ScrollRow = 60
ActiveWindow.ScrollRow = 69
ActiveWindow.ScrollRow = 88
ActiveWindow.ScrollRow = 96
ActiveWindow.ScrollRow = 103
ActiveWindow.ScrollRow = 112
ActiveWindow.ScrollRow = 127
Range("AC2:AC160").Select
ActiveSheet.Paste
Application.CutCopyMode = False
Selection.Copy
Range("AB2").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Columns("AC:AC").Select
Application.CutCopyMode = False
Selection.Delete Shift:=xlToLeft
Columns("AD:AD").Select
Selection.Insert Shift:=xlToRight
Range("AD2").Select
ActiveCell.FormulaR1C1 = "=PROPER(RC[-1])"
Range("AD2").Select
Selection.Copy
ActiveWindow.ScrollRow = 2
ActiveWindow.ScrollRow = 3
ActiveWindow.ScrollRow = 4
ActiveWindow.ScrollRow = 12
ActiveWindow.ScrollRow = 16
ActiveWindow.ScrollRow = 22
ActiveWindow.ScrollRow = 34
ActiveWindow.ScrollRow = 43
ActiveWindow.ScrollRow = 60
ActiveWindow.ScrollRow = 70
ActiveWindow.ScrollRow = 77
ActiveWindow.ScrollRow = 87
ActiveWindow.ScrollRow = 94
ActiveWindow.ScrollRow = 101
ActiveWindow.ScrollRow = 110
ActiveWindow.ScrollRow = 126
ActiveWindow.ScrollRow = 127
ActiveWindow.ScrollRow = 1
ActiveWindow.ScrollRow = 127
Range("AD2:AD161").Select
ActiveSheet.Paste
Application.CutCopyMode = False
Selection.Copy
Range("AC2").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Columns("AD:AD").Select
Application.CutCopyMode = False
Selection.Delete Shift:=xlToLeft
Range("Z29").Select
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 = 8
ActiveWindow.ScrollColumn = 7
ActiveWindow.ScrollColumn = 5
ActiveWindow.ScrollColumn = 4
ActiveWindow.ScrollColumn = 3
ActiveWindow.ScrollColumn = 2
ActiveWindow.ScrollColumn = 1
Columns("B:B").Select
Selection.Replace What:=" Rd", Replacement:=" Road ", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
Selection.Replace What:=" Ave ", Replacement:=" Avenue ", LookAt:=xlPart _
, SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
Selection.Replace What:=" Ave", Replacement:=" Avenue ", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
Selection.Replace What:=" St ", Replacement:=" Street ", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
Selection.Replace What:=" Blvd ", Replacement:=" Boulevard ", LookAt:= _
xlPart, SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
Selection.Replace What:=" Dr ", Replacement:=" Drive ", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
Selection.Replace What:=" Blvd.", Replacement:=" Boulevard", LookAt:= _
xlPart, SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
Selection.Replace What:=" Hwy", Replacement:=" Highway", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
Selection.Replace What:=" Pkwy", Replacement:=" Parkway", LookAt:=xlPart _
, SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
Selection.Replace What:=" Ste ", Replacement:=" Suite ", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
ActiveWindow.SmallScroll Down:=-57
Cells.Replace What:="'S", Replacement:="'s", LookAt:=xlPart, SearchOrder _
:=xlByRows, MatchCase:=True, SearchFormat:=False, ReplaceFormat:=False
Cells.Replace What:="'T", Replacement:="'t", LookAt:=xlPart, SearchOrder _
:=xlByRows, MatchCase:=True, SearchFormat:=False, ReplaceFormat:=False
ActiveWindow.SmallScroll Down:=-15
Selection.Replace What:=" St.", Replacement:=" Street", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=True, SearchFormat:=False, _
ReplaceFormat:=False
Selection.Replace What:=" St", Replacement:=" Street", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=True, SearchFormat:=False, _
ReplaceFormat:=False
Selection.Replace What:=" Streetreet", Replacement:=" Street", LookAt:= _
xlPart, SearchOrder:=xlByRows, MatchCase:=True, SearchFormat:=False, _
ReplaceFormat:=False
Selection.Replace What:=" Streeate", Replacement:=" State", LookAt:= _
xlPart, SearchOrder:=xlByRows, MatchCase:=True, SearchFormat:=False, _
ReplaceFormat:=False
Selection.Replace What:=" Avenue nue", Replacement:=" Avenue", LookAt:= _
xlPart, SearchOrder:=xlByRows, MatchCase:=True, SearchFormat:=False, _
ReplaceFormat:=False
Selection.Replace What:=" Blvd", Replacement:=" Boulevard", LookAt:= _
xlPart, SearchOrder:=xlByRows, MatchCase:=True, SearchFormat:=False, _
ReplaceFormat:=False
Selection.Replace What:=" 1St", Replacement:=" 1st", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=True, SearchFormat:=False, _
ReplaceFormat:=False
Selection.Replace What:=" 2Nd", Replacement:=" 2nd", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=True, SearchFormat:=False, _
ReplaceFormat:=False
Selection.Replace What:=" 3Rd", Replacement:=" 3rd", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=True, SearchFormat:=False, _
ReplaceFormat:=False
Selection.Replace What:=" 4Th", Replacement:=" 4th", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=True, SearchFormat:=False, _
ReplaceFormat:=False
Selection.Replace What:=" 5Th", Replacement:=" 5th", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=True, SearchFormat:=False, _
ReplaceFormat:=False
Selection.Replace What:=" 6Th", Replacement:=" 6th", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=True, SearchFormat:=False, _
ReplaceFormat:=False
Selection.Replace What:=" 7Th", Replacement:=" 7th", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=True, SearchFormat:=False, _
ReplaceFormat:=False
Selection.Replace What:=" 8Th", Replacement:=" 8th", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=True, SearchFormat:=False, _
ReplaceFormat:=False
Selection.Replace What:=" 9Th", Replacement:=" 9th", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=True, SearchFormat:=False, _
ReplaceFormat:=False
Selection.Replace What:=" 0Th", Replacement:=" 0th", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=True, SearchFormat:=False, _
ReplaceFormat:=False
Selection.Replace What:=" 1Th", Replacement:=" 1th", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=True, SearchFormat:=False, _
ReplaceFormat:=False
Selection.Replace What:=" 2Th", Replacement:=" 2th", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=True, SearchFormat:=False, _
ReplaceFormat:=False
Selection.Replace What:=" 3Th", Replacement:=" 3th", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=True, SearchFormat:=False, _
ReplaceFormat:=False
Selection.Replace What:=" 4Th", Replacement:=" 4th", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=True, SearchFormat:=False, _
ReplaceFormat:=False
Selection.Replace What:=" 5Th", Replacement:=" 5th", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=True, SearchFormat:=False, _
ReplaceFormat:=False
Selection.Replace What:=" 6Th", Replacement:=" 6th", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=True, SearchFormat:=False, _
ReplaceFormat:=False
Selection.Replace What:=" 7Th", Replacement:=" 7th", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=True, SearchFormat:=False, _
ReplaceFormat:=False
Selection.Replace What:=" 8Th", Replacement:=" 8th", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=True, SearchFormat:=False, _
ReplaceFormat:=False
Selection.Replace What:=" 9Th", Replacement:=" 9th", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=True, SearchFormat:=False, _
ReplaceFormat:=False
ActiveWindow.ScrollRow = 2
ActiveWindow.ScrollRow = 3
ActiveWindow.ScrollRow = 4
ActiveWindow.ScrollRow = 5
ActiveWindow.ScrollRow = 6
ActiveWindow.ScrollRow = 7
ActiveWindow.ScrollRow = 8
ActiveWindow.ScrollRow = 9
ActiveWindow.ScrollRow = 10
ActiveWindow.ScrollRow = 11
ActiveWindow.ScrollRow = 12
ActiveWindow.ScrollRow = 13
ActiveWindow.ScrollRow = 14
ActiveWindow.ScrollRow = 15
ActiveWindow.ScrollRow = 16
ActiveWindow.ScrollRow = 17
ActiveWindow.ScrollRow = 18
ActiveWindow.ScrollRow = 19
ActiveWindow.ScrollRow = 20
ActiveWindow.ScrollRow = 21
ActiveWindow.ScrollRow = 22
ActiveWindow.ScrollRow = 23
ActiveWindow.ScrollRow = 24
ActiveWindow.ScrollRow = 25
ActiveWindow.ScrollRow = 26
ActiveWindow.ScrollRow = 27
ActiveWindow.ScrollRow = 28
ActiveWindow.ScrollRow = 29
ActiveWindow.ScrollRow = 30
ActiveWindow.ScrollRow = 31
ActiveWindow.ScrollRow = 32
ActiveWindow.ScrollRow = 33
ActiveWindow.ScrollRow = 34
ActiveWindow.ScrollRow = 35
ActiveWindow.ScrollRow = 36
ActiveWindow.ScrollRow = 37
ActiveWindow.ScrollRow = 38
ActiveWindow.ScrollRow = 39
ActiveWindow.ScrollRow = 40
Selection.Replace What:=" Dr", Replacement:=" Drive", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=True, SearchFormat:=False, _
ReplaceFormat:=False
Selection.Replace What:=" Driveive", Replacement:=" Drive", LookAt:= _
xlPart, SearchOrder:=xlByRows, MatchCase:=True, SearchFormat:=False, _
ReplaceFormat:=False
Selection.Replace What:=" Ln", Replacement:=" Lane", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=True, SearchFormat:=False, _
ReplaceFormat:=False
ActiveWindow.ScrollRow = 39
ActiveWindow.ScrollRow = 38
ActiveWindow.ScrollRow = 37
ActiveWindow.ScrollRow = 36
ActiveWindow.ScrollRow = 35
ActiveWindow.ScrollRow = 34
ActiveWindow.ScrollRow = 33
ActiveWindow.ScrollRow = 32
ActiveWindow.ScrollRow = 31
ActiveWindow.ScrollRow = 30
ActiveWindow.ScrollRow = 29
ActiveWindow.ScrollRow = 28
ActiveWindow.ScrollRow = 27
ActiveWindow.ScrollRow = 26
ActiveWindow.ScrollRow = 25
ActiveWindow.ScrollRow = 24
ActiveWindow.ScrollRow = 23
ActiveWindow.ScrollRow = 22
ActiveWindow.ScrollRow = 21
ActiveWindow.ScrollRow = 20
ActiveWindow.ScrollRow = 19
ActiveWindow.ScrollRow = 18
ActiveWindow.ScrollRow = 17
ActiveWindow.ScrollRow = 16
ActiveWindow.ScrollRow = 15
ActiveWindow.ScrollRow = 14
ActiveWindow.ScrollRow = 13
ActiveWindow.ScrollRow = 12
ActiveWindow.ScrollRow = 11
ActiveWindow.ScrollRow = 10
ActiveWindow.ScrollRow = 9
ActiveWindow.ScrollRow = 8
ActiveWindow.ScrollRow = 7
ActiveWindow.ScrollRow = 6
ActiveWindow.ScrollRow = 5
ActiveWindow.ScrollRow = 4
ActiveWindow.ScrollRow = 3
ActiveWindow.ScrollRow = 2
ActiveWindow.ScrollRow = 1
Selection.Replace What:="P O", Replacement:="PO", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=True, SearchFormat:=False, _
ReplaceFormat:=False
Cells.Replace What:=" Hwy", Replacement:=" Highway", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=True, SearchFormat:=False, _
ReplaceFormat:=False
Columns("V:AA").Select
Cells.Replace What:=" And ", Replacement:=" and ", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=True, SearchFormat:=False, _
Related:
- Macros excel 2004 problem
- Macros in excel download - Download - Spreadsheets
- Need for speed most wanted 2004 download - Download - Racing
- Excel marksheet - Guide
- Excel free download - Download - Spreadsheets
- Number to words in excel - Guide
3 responses
rizvisa1
Posts
4478
Registration date
Thursday January 28, 2010
Status
Contributor
Last seen
May 5, 2022
766
Feb 1, 2010 at 05:57 PM
Feb 1, 2010 at 05:57 PM
What red color ?
In Your message it shows lines as
"
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
"
Now is there a blank line between the "Selection.." and ":=False, ..." or it just so appears here like that ?
It there is a really a blank line between the two, then that is the issue as there cannot be a blank line in between the two.
In Your message it shows lines as
"
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
"
Now is there a blank line between the "Selection.." and ":=False, ..." or it just so appears here like that ?
It there is a really a blank line between the two, then that is the issue as there cannot be a blank line in between the two.
it does appears like that...i just copied it from my text note into here...now you said it cant have space in between..let me try that..
rizvisa1
Posts
4478
Registration date
Thursday January 28, 2010
Status
Contributor
Last seen
May 5, 2022
766
Feb 5, 2010 at 09:42 AM
Feb 5, 2010 at 09:42 AM
If a line is ending with _ then the next line must appear immediately underneath it. This _ is saying that the code continues on next line. So where ever a line ends with "_" and there is a blank line just underneath it, remove that blank line
