Macros excel 2004 problem

[Solved/Closed]
Report
-
Posts
4476
Registration date
Thursday January 28, 2010
Status
Contributor
Last seen
August 2, 2020
-
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, _