Tidying Complex Macro

Dazzawm

Dazzawm

Well-known Member
Joined
Jan 24, 2011
Messages
3,786
Office Version
  1. 365
Platform
  1. Windows
I have a very long and complex macro I have created by using the recorder and adding them together. I am sure there is a lot in the code below which is not needed and making the macro run longer than it needs to. Could someone be kind enough to 'tidy it up and remove what is not needed' or point out to me what I can remove.

Thanks

Code: 
Sub DoEverything()
Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual
Application.DisplayAlerts = False
st = Now(): Dim t As Date
Sheets.Add After:=Sheets(Sheets.Count)
Sheets.Add After:=Sheets(Sheets.Count)
Workbooks.Open Filename:= _
"C:\Documents and Settings\MANAGER\Desktop\Vertical Master.xls"
Cells.Select
Selection.Copy
ActiveWindow.Close
Cells.Select
ActiveSheet.Paste
Range("C25").Select
Sheets("sheet1").Select
Rows("1:1").Select
Selection.Copy
Sheets("Sheet2").Select
Rows("1:1").Select
Selection.Insert Shift:=xlDown
Cells.Select
Cells.EntireColumn.AutoFit
Range("A2").Select
Sheets("sheet1").Select
Application.CutCopyMode = False
Range("A1").Select
Application.Run "PERSONAL.XLS!MakeVertical.MakeVertical"
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 = 13
ActiveWindow.ScrollColumn = 12
ActiveWindow.ScrollColumn = 10
ActiveWindow.ScrollColumn = 7
ActiveWindow.ScrollColumn = 6
ActiveWindow.ScrollColumn = 4
ActiveWindow.ScrollColumn = 3
ActiveWindow.ScrollColumn = 1
Application.ScreenUpdating = False
Columns("A:A").Select
Selection.Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove
Sheets("Sheet3").Select
Range("A1").Select
Selection.Copy
Sheets("Sheet2").Select
Range("A1").Select
ActiveSheet.Paste
Columns("D:D").Select
Application.CutCopyMode = False
Selection.Cut
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
Columns("R:R").Select
Selection.Insert Shift:=xlToRight
Columns("N:P").Select
Range("P1").Activate
Selection.Delete Shift:=xlToLeft
ActiveWindow.ScrollColumn = 11
ActiveWindow.ScrollColumn = 10
ActiveWindow.ScrollColumn = 9
ActiveWindow.ScrollColumn = 8
ActiveWindow.ScrollColumn = 7
ActiveWindow.ScrollColumn = 6
ActiveWindow.ScrollColumn = 5
ActiveWindow.ScrollColumn = 4
ActiveWindow.ScrollColumn = 3
ActiveWindow.ScrollColumn = 2
ActiveWindow.ScrollColumn = 1
Columns("L:L").Select
Selection.Cut
Columns("E:E").Select
ActiveSheet.Paste
Columns("M:M").Select
Selection.Cut
Columns("D:D").Select
ActiveSheet.Paste
Columns("D:D").Select
Selection.Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove
Sheets("Sheet3").Select
Range("D1").Select
Selection.Copy
Sheets("Sheet2").Select
Range("D1").Select
ActiveSheet.Paste
Range("G2").Select
Application.CutCopyMode = False
ActiveCell.FormulaR1C1 = "=VLOOKUP(C[-1],Sheet3!C[-1]:C,2,0)"
Range("G2").Select
Selection.AutoFill Destination:=Range("G2:G19967")
Range("G2:G19967").Select
Range("H2").Select
ActiveCell.FormulaR1C1 = "=VLOOKUP(C[-2],Sheet3!C[-2]:C,3,0)"
Selection.AutoFill Destination:=Range("H2:H19967")
Range("H2:H19967").Select
Columns("G:H").Select
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Columns("I:I").Select
Application.CutCopyMode = False
Selection.Delete Shift:=xlToLeft
Cells.Select
Cells.EntireColumn.AutoFit
ActiveWindow.ScrollColumn = 2
ActiveWindow.ScrollColumn = 3
ActiveWindow.ScrollColumn = 4
ActiveWindow.ScrollColumn = 5
ActiveWindow.ScrollColumn = 6
ActiveWindow.ScrollColumn = 7
ActiveWindow.ScrollColumn = 8
ActiveWindow.ScrollColumn = 9
Columns("L:AH").Select
Selection.Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove
ActiveWindow.ScrollColumn = 7
ActiveWindow.ScrollColumn = 6
ActiveWindow.ScrollColumn = 5
ActiveWindow.ScrollColumn = 4
ActiveWindow.ScrollColumn = 3
ActiveWindow.ScrollColumn = 2
ActiveWindow.ScrollColumn = 1
Sheets("Sheet3").Select
Range("I1:Z1").Select
Selection.Copy
Sheets("Sheet2").Select
Range("J1").Select
ActiveSheet.Paste
Application.CutCopyMode = False
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
ActiveWindow.ScrollColumn = 20
ActiveWindow.ScrollColumn = 21
ActiveWindow.ScrollColumn = 22
ActiveWindow.ScrollColumn = 23
ActiveWindow.ScrollColumn = 24
ActiveWindow.ScrollColumn = 25
ActiveWindow.ScrollColumn = 26
ActiveWindow.ScrollColumn = 27
Columns("AB:AK").Select
ActiveWindow.ScrollColumn = 34
ActiveWindow.ScrollColumn = 33
ActiveWindow.ScrollColumn = 32
ActiveWindow.ScrollColumn = 31
ActiveWindow.ScrollColumn = 30
ActiveWindow.ScrollColumn = 29
ActiveWindow.ScrollColumn = 28
ActiveWindow.ScrollColumn = 27
ActiveWindow.ScrollColumn = 26
ActiveWindow.ScrollColumn = 25
ActiveWindow.ScrollColumn = 24
ActiveWindow.ScrollColumn = 23
ActiveWindow.ScrollColumn = 25
ActiveWindow.ScrollColumn = 27
ActiveWindow.ScrollColumn = 28
ActiveWindow.ScrollColumn = 29
ActiveWindow.ScrollColumn = 30
ActiveWindow.ScrollColumn = 29
ActiveWindow.ScrollColumn = 28
ActiveWindow.ScrollColumn = 26
ActiveWindow.ScrollColumn = 25
Columns("AB:AJ").Select
Selection.Delete Shift:=xlToLeft
Sheets("Sheet3").Select
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
Range("AF1:CM1").Select
Selection.Copy
Sheets("Sheet2").Select
Range("AH1").Select
ActiveSheet.Paste
Application.CutCopyMode = False
ActiveWindow.ScrollColumn = 25
ActiveWindow.ScrollColumn = 23
ActiveWindow.ScrollColumn = 22
ActiveWindow.ScrollColumn = 21
ActiveWindow.ScrollColumn = 20
ActiveWindow.ScrollColumn = 18
ActiveWindow.ScrollColumn = 16
ActiveWindow.ScrollColumn = 14
ActiveWindow.ScrollColumn = 13
ActiveWindow.ScrollColumn = 12
ActiveWindow.ScrollColumn = 9
ActiveWindow.ScrollColumn = 8
ActiveWindow.ScrollColumn = 7
ActiveWindow.ScrollColumn = 5
ActiveWindow.ScrollColumn = 3
ActiveWindow.ScrollColumn = 2
ActiveWindow.ScrollColumn = 1
Cells.Select
Cells.EntireColumn.AutoFit
ActiveWindow.ScrollColumn = 2
ActiveWindow.ScrollColumn = 3
ActiveWindow.ScrollColumn = 4
ActiveWindow.ScrollColumn = 5
ActiveWindow.ScrollColumn = 6
Application.Run "PERSONAL.XLS!SplitEngineAndYears.SplitEngineAndYears"
Range("O:O,Q:Q").Select
Range("Q1").Activate
Selection.NumberFormat = "00"
Columns("M:M").Select
Selection.NumberFormat = "0.0"
Cells.Select
Range("F1").Activate
Cells.EntireColumn.AutoFit
Columns("I:I").Select
Selection.Delete Shift:=xlToLeft
Cells.Select
Range("F1").Activate
Cells.EntireColumn.AutoFit
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
ActiveWindow.ScrollColumn = 20
ActiveWindow.ScrollColumn = 21
ActiveWindow.ScrollColumn = 22
ActiveWindow.ScrollColumn = 23
ActiveWindow.ScrollColumn = 24
ActiveWindow.ScrollColumn = 25
ActiveWindow.ScrollColumn = 26
ActiveWindow.ScrollColumn = 27
ActiveWindow.ScrollColumn = 28
ActiveWindow.ScrollColumn = 29
ActiveWindow.ScrollColumn = 30
ActiveWindow.ScrollColumn = 31
ActiveWindow.ScrollColumn = 32
ActiveWindow.ScrollColumn = 33
ActiveWindow.ScrollColumn = 34
ActiveWindow.ScrollColumn = 36
ActiveWindow.ScrollColumn = 37
ActiveWindow.ScrollColumn = 39
ActiveWindow.ScrollColumn = 40
ActiveWindow.ScrollColumn = 41
ActiveWindow.ScrollColumn = 42
ActiveWindow.ScrollColumn = 44
ActiveWindow.ScrollColumn = 45
ActiveWindow.ScrollColumn = 46
ActiveWindow.ScrollColumn = 47
ActiveWindow.ScrollColumn = 46
ActiveWindow.ScrollColumn = 44
ActiveWindow.ScrollColumn = 42
ActiveWindow.ScrollColumn = 41
ActiveWindow.ScrollColumn = 39
ActiveWindow.ScrollColumn = 38
ActiveWindow.ScrollColumn = 34
ActiveWindow.ScrollColumn = 33
ActiveWindow.ScrollColumn = 31
ActiveWindow.ScrollColumn = 27
ActiveWindow.ScrollColumn = 25
ActiveWindow.ScrollColumn = 24
ActiveWindow.ScrollColumn = 21
ActiveWindow.ScrollColumn = 20
ActiveWindow.ScrollColumn = 18
ActiveWindow.ScrollColumn = 17
ActiveWindow.ScrollColumn = 15
ActiveWindow.ScrollColumn = 11
ActiveWindow.ScrollColumn = 9
ActiveWindow.ScrollColumn = 8
ActiveWindow.ScrollColumn = 6
ActiveWindow.ScrollColumn = 5
ActiveWindow.ScrollColumn = 3
ActiveWindow.ScrollColumn = 2
ActiveWindow.ScrollColumn = 1
Range("A1").Select
Application.ScreenUpdating = True
Application.DisplayAlerts = True
Dim LR As Long
LR = Range("G" & Rows.Count).End(xlUp).Row
On Error Resume Next
Range("G2:G" & LR).SpecialCells(xlCellTypeConstants, xlErrors).EntireRow.Delete
On Error GoTo 0
Range("A2:A" & Range("B" & Rows.Count).End(xlUp).Row).Formula = "=ROW(A1)"
Range("D2:D" & Range("E" & Rows.Count).End(xlUp).Row).Formula = "=countif(C$2:C2,C2)"
With ActiveSheet
.Range("S2", .Cells(Rows.Count, "F").End(xlUp).Offset(, 13)).FormulaR1C1 = "=IF(RIGHT(rc[-13],1)=""A"",""Petrol"",""Diesel"")"
End With
Columns("S:S").Select
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Cells.Select
Cells.EntireColumn.AutoFit
Range("AI1").Select
Selection.Copy
ActiveWindow.ScrollColumn = 29
ActiveWindow.ScrollColumn = 27
Range("AB1").Select
ActiveSheet.Paste
Columns("AB:AB").Select
Application.CutCopyMode = False
Selection.Cut
ActiveWindow.ScrollColumn = 28
ActiveWindow.ScrollColumn = 29
Columns("AI:AI").Select
ActiveSheet.Paste
ActiveWindow.ScrollColumn = 28
ActiveWindow.ScrollColumn = 26
ActiveWindow.ScrollColumn = 25
ActiveWindow.ScrollColumn = 23
ActiveWindow.ScrollColumn = 22
ActiveWindow.ScrollColumn = 21
ActiveWindow.ScrollColumn = 22
Columns("AB:AB").Select
Selection.Delete Shift:=xlToLeft
ActiveWindow.ScrollColumn = 21
ActiveWindow.ScrollColumn = 20
ActiveWindow.ScrollColumn = 19
ActiveWindow.ScrollColumn = 18
ActiveWindow.ScrollColumn = 16
ActiveWindow.ScrollColumn = 15
ActiveWindow.ScrollColumn = 14
ActiveWindow.ScrollColumn = 13
ActiveWindow.ScrollColumn = 12
ActiveWindow.ScrollColumn = 11
ActiveWindow.ScrollColumn = 10
ActiveWindow.ScrollColumn = 9
ActiveWindow.ScrollColumn = 8
ActiveWindow.ScrollColumn = 7
ActiveWindow.ScrollColumn = 6
ActiveWindow.ScrollColumn = 5
ActiveWindow.ScrollColumn = 4
ActiveWindow.ScrollColumn = 3
ActiveWindow.ScrollColumn = 2
Cells.Select
Cells.EntireColumn.AutoFit
Range("A1").Select
Application.ScreenUpdating = True
Application.DisplayAlerts = True
et = Now
t = et - st
MsgBox ("That Took " & t)
Application.Calculation = xlCalculationAutomatic
End Sub
 

Excel Facts

When they said...
When they said you are going to "Excel at life", they meant you "will be doing Excel your whole life".
Sort by date Sort by votes
Now i have done this in a hurry but it should speed things up..

Sub DoEverything()
Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual
Application.DisplayAlerts = False
st = Now(): Dim t As Date
Sheets.Add After:=Sheets(Sheets.Count)
Sheets.Add After:=Sheets(Sheets.Count)
Workbooks.Open Filename:= _
"C:\Documents and Settings\MANAGER\Desktop\Vertical Master.xls"
Cells.Copy
ActiveWindow.Close
Cells.Select
ActiveSheet.Paste
Sheets("sheet1").Rows("1:1").Copy
Sheets("Sheet2").Rows("1:1").Insert Shift:=xlDown
Cells.Select
Cells.EntireColumn.AutoFit
Sheets("sheet1").Application.CutCopyMode = False
Application.Run "PERSONAL.XLS!MakeVertical.MakeVertical"
Application.ScreenUpdating = False
Columns("A:A").Selection.Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove
Sheets("Sheet3").Range("A1").Copy
Sheets("Sheet2").Range("A1").Paste
Columns("D:D").Application.CutCopyMode = False
Selection.Cut
Columns("R:R").Insert Shift:=xlToRight
Columns("N:P").Select
Range("P1").Activate
Selection.Delete Shift:=xlToLeft
Columns("L:L").Cut
Columns("E:E").Paste
Columns("M:M").Cut
Columns("D:D").Paste
Columns("D:D").Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove
Sheets("Sheet3").Range("D1").Copy
Sheets("Sheet2").Range("D1").Paste
Range("G2").Select
Application.CutCopyMode = False
ActiveCell.FormulaR1C1 = "=VLOOKUP(C[-1],Sheet3!C[-1]:C,2,0)"
Range("G2").Select
Selection.AutoFill Destination:=Range("G2:G19967")
Range("H2").FormulaR1C1 = "=VLOOKUP(C[-2],Sheet3!C[-2]:C,3,0)"
Selection.AutoFill Destination:=Range("H2:H19967")
Columns("G:H").Select
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Columns("I:I").Select
Application.CutCopyMode = False
Selection.Delete Shift:=xlToLeft
Cells.Select
Cells.EntireColumn.AutoFit
Columns("L:AH").Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove
Sheets("Sheet3").Range("I1:Z1").Copy
Sheets("Sheet2").Range("J1").Paste
Application.CutCopyMode = False
Columns("AB:AJ").Delete Shift:=xlToLeft
Sheets("Sheet3").Range("AF1:CM1").Copy
Sheets("Sheet2").Range("AH1").Paste
Application.CutCopyMode = False
Cells.Select
Cells.EntireColumn.AutoFit
Application.Run "PERSONAL.XLS!SplitEngineAndYears.SplitEngineAndYears"
Range("Q1").NumberFormat = "00"
Columns("M:M").NumberFormat = "0.0"
Cells.Select
Range("F1").Activate
Cells.EntireColumn.AutoFit
Columns("I:I").Delete Shift:=xlToLeft
Cells.Select
Range("F1").Activate
Cells.EntireColumn.AutoFit
Range("A1").Select
Application.ScreenUpdating = True
Application.DisplayAlerts = True
Dim LR As Long
LR = Range("G" & Rows.Count).End(xlUp).Row
On Error Resume Next
Range("G2:G" & LR).SpecialCells(xlCellTypeConstants, xlErrors).EntireRow.Delete
On Error GoTo 0
Range("A2:A" & Range("B" & Rows.Count).End(xlUp).Row).Formula = "=ROW(A1)"
Range("D2:D" & Range("E" & Rows.Count).End(xlUp).Row).Formula = "=countif(C$2:C2,C2)"
With ActiveSheet
.Range("S2", .Cells(Rows.Count, "F").End(xlUp).Offset(, 13)).FormulaR1C1 = "=IF(RIGHT(rc[-13],1)=""A"",""Petrol"",""Diesel"")"
End With
Columns("S:S").Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Cells.Select
Cells.EntireColumn.AutoFit
Range("AI1").Copy
Range("AB1").Paste
Columns("AB:AB").Select
Application.CutCopyMode = False
Selection.Cut
ActiveWindow.ScrollColumn = 28
ActiveWindow.ScrollColumn = 29
Columns("AI:AI").Paste
Columns("AB:AB").Delete Shift:=xlToLeft
Cells.Select
Cells.EntireColumn.AutoFit
Range("A1").Select
Application.ScreenUpdating = True
Application.DisplayAlerts = True
et = Now
t = et - st
MsgBox ("That Took " & t)
Application.Calculation = xlCalculationAutomatic
End Sub<!-- / message --><!-- sig -->
__________________
Thanks For All Your Help

Windows 7

Excel 2007
 
Upvote 0
I appreciate your time and effort but 'Now i have done this in a hurry but it should speed things up..'
how certain are you that it will do as I need as it will be dealing with a lot of data that I need to be correct.
 
Upvote 0
well without having the files available for the macro to run i cannot test it..clearly, however the majority of what i have done has been basic cleaning i.e. removing scrolling etc, why dont you create a new macro, insert what i have given you, and if it doesnt work then just delete it!

As long you dont save it you'll be fine as seeing as i have no method of testing i dont see another option...
 
Upvote 0
Ok thanks, thats all I needed was 'basic cleaning'.
 
Upvote 0
Hello Jiminy,

can you help me shorten my macro as well please? i already eliminated the scrolls - anything else i can do?

Sub save_raw_tris_to_batch_folders()
'
' save_raw_tris_to_folders Macro
'

'
ChDir "Q:\act_und\triangle\medi"
Workbooks.OpenText Filename:="Q:\act_und\triangle\medi\cbpadbac.tri", Origin _
:=437, StartRow:=1, DataType:=xlFixedWidth, FieldInfo:=Array(Array(0, 1), _
Array(7, 1), Array(19, 1), Array(32, 1), Array(45, 1), Array(58, 1), Array(71, 1), Array(84 _
, 1), Array(97, 1), Array(110, 1), Array(123, 1), Array(136, 1), Array(149, 1), Array(162, 1 _
), Array(175, 1), Array(188, 1), Array(201, 1), Array(214, 1), Array(227, 1), Array(240, 1) _
, Array(253, 1), Array(266, 1), Array(279, 1), Array(292, 1), Array(305, 1), Array(318, 1), _
Array(331, 1), Array(344, 1), Array(357, 1), Array(370, 1), Array(383, 1), Array(396, 1), _
Array(409, 1), Array(422, 1), Array(435, 1), Array(448, 1), Array(461, 1), Array(474, 1)) _
, TrailingMinusNumbers:=True
Rows("1:11").Select
Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
Range("A14").Select
Rows("11:11").Select
Selection.Delete Shift:=xlUp
Range("A11").Select
ChDir "I:\Emblem Ish\nyc batch"
ActiveWorkbook.SaveAs Filename:="I:\Emblem Ish\nyc batch\cbpadbac.xls", _
FileFormat:=xlExcel8, Password:="", WriteResPassword:="", _
ReadOnlyRecommended:=False, CreateBackup:=False
ChDir "I:\Emblem Ish\nycrawtriangles\nycbatch"
ActiveWorkbook.SaveAs Filename:= _
"I:\Emblem Ish\nycrawtriangles\nycbatch\cbpadbac.xls", FileFormat:=xlExcel8, _
Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, _
CreateBackup:=False
ChDir "Q:\act_und\triangle\medi"
Workbooks.OpenText Filename:="Q:\act_und\triangle\medi\cbpaddba.tri", Origin _
:=437, StartRow:=1, DataType:=xlFixedWidth, FieldInfo:=Array(Array(0, 1), _
Array(7, 1), Array(19, 1), Array(32, 1), Array(45, 1), Array(58, 1), Array(71, 1), Array(84 _
, 1), Array(97, 1), Array(110, 1), Array(123, 1), Array(136, 1), Array(149, 1), Array(162, 1 _
), Array(175, 1), Array(188, 1), Array(201, 1), Array(214, 1), Array(227, 1), Array(240, 1) _
, Array(253, 1), Array(266, 1), Array(279, 1), Array(292, 1), Array(305, 1), Array(318, 1), _
Array(331, 1), Array(344, 1), Array(357, 1), Array(370, 1), Array(383, 1), Array(396, 1), _
Array(409, 1), Array(422, 1), Array(435, 1), Array(448, 1), Array(461, 1), Array(474, 1)) _
, TrailingMinusNumbers:=True
Rows("1:10").Select
Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
Range("A1").Select
ChDir "I:\Emblem Ish\nyc batch"
ActiveWorkbook.SaveAs Filename:="I:\Emblem Ish\nyc batch\cbpaddba.xls", _
FileFormat:=xlExcel8, Password:="", WriteResPassword:="", _
ReadOnlyRecommended:=False, CreateBackup:=False
ChDir "I:\Emblem Ish\nycrawtriangles\nycbatch"
ActiveWorkbook.SaveAs Filename:= _
"I:\Emblem Ish\nycrawtriangles\nycbatch\cbpaddba.xls", FileFormat:=xlExcel8, _
Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, _
CreateBackup:=False
ChDir "Q:\act_und\triangle\medi"
Workbooks.OpenText Filename:="Q:\act_und\triangle\medi\cbpaddmm.tri", Origin _
:=437, StartRow:=1, DataType:=xlFixedWidth, FieldInfo:=Array(Array(0, 1), _
Array(7, 1), Array(19, 1), Array(32, 1), Array(45, 1), Array(58, 1), Array(71, 1), Array(84 _
, 1), Array(97, 1), Array(110, 1), Array(123, 1), Array(136, 1), Array(149, 1), Array(162, 1 _
), Array(175, 1), Array(188, 1), Array(201, 1), Array(214, 1), Array(227, 1), Array(240, 1) _
, Array(253, 1), Array(266, 1), Array(279, 1), Array(292, 1), Array(305, 1), Array(318, 1), _
Array(331, 1), Array(344, 1), Array(357, 1), Array(370, 1), Array(383, 1), Array(396, 1), _
Array(409, 1), Array(422, 1), Array(435, 1), Array(448, 1), Array(461, 1), Array(474, 1)) _
, TrailingMinusNumbers:=True
Rows("1:10").Select
Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
Range("A1").Select
ChDir "I:\Emblem Ish\nyc batch"
ActiveWorkbook.SaveAs Filename:="I:\Emblem Ish\nyc batch\cbpaddmm.xls", _
FileFormat:=xlExcel8, Password:="", WriteResPassword:="", _
ReadOnlyRecommended:=False, CreateBackup:=False
ChDir "I:\Emblem Ish\nycrawtriangles\nycbatch"
ActiveWorkbook.SaveAs Filename:= _
"I:\Emblem Ish\nycrawtriangles\nycbatch\cbpaddmm.xls", FileFormat:=xlExcel8, _
Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, _
CreateBackup:=False
ChDir "Q:\act_und\triangle\medi"
Workbooks.OpenText Filename:="Q:\act_und\triangle\medi\cbpadmmc.tri", Origin _
:=437, StartRow:=1, DataType:=xlFixedWidth, FieldInfo:=Array(Array(0, 1), _
Array(7, 1), Array(19, 1), Array(32, 1), Array(45, 1), Array(58, 1), Array(71, 1), Array(84 _
, 1), Array(97, 1), Array(110, 1), Array(123, 1), Array(136, 1), Array(149, 1), Array(162, 1 _
), Array(175, 1), Array(188, 1), Array(201, 1), Array(214, 1), Array(227, 1), Array(240, 1) _
, Array(253, 1), Array(266, 1), Array(279, 1), Array(292, 1), Array(305, 1), Array(318, 1), _
Array(331, 1), Array(344, 1), Array(357, 1), Array(370, 1), Array(383, 1), Array(396, 1), _
Array(409, 1), Array(422, 1), Array(435, 1), Array(448, 1), Array(461, 1), Array(474, 1)) _
, TrailingMinusNumbers:=True
Rows("1:10").Select
Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
Range("A1").Select
ChDir "I:\Emblem Ish\nyc batch"
ActiveWorkbook.SaveAs Filename:="I:\Emblem Ish\nyc batch\cbpadmmc.xls", _
FileFormat:=xlExcel8, Password:="", WriteResPassword:="", _
ReadOnlyRecommended:=False, CreateBackup:=False
ChDir "I:\Emblem Ish\nycrawtriangles\nycbatch"
ActiveWorkbook.SaveAs Filename:= _
"I:\Emblem Ish\nycrawtriangles\nycbatch\cbpadmmc.xls", FileFormat:=xlExcel8, _
Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, _
CreateBackup:=False
ChDir "Q:\act_und\triangle\medi"
Workbooks.OpenText Filename:="Q:\act_und\triangle\medi\cbpaobac.tri", Origin _
:=437, StartRow:=1, DataType:=xlFixedWidth, FieldInfo:=Array(Array(0, 1), _
Array(7, 1), Array(19, 1), Array(32, 1), Array(45, 1), Array(58, 1), Array(71, 1), Array(84 _
, 1), Array(97, 1), Array(110, 1), Array(123, 1), Array(136, 1), Array(149, 1), Array(162, 1 _
), Array(175, 1), Array(188, 1), Array(201, 1), Array(214, 1), Array(227, 1), Array(240, 1) _
, Array(253, 1), Array(266, 1), Array(279, 1), Array(292, 1), Array(305, 1), Array(318, 1), _
Array(331, 1), Array(344, 1), Array(357, 1), Array(370, 1), Array(383, 1), Array(396, 1), _
Array(409, 1), Array(422, 1), Array(435, 1), Array(448, 1), Array(461, 1), Array(474, 1)) _
, TrailingMinusNumbers:=True
Rows("1:10").Select
Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
Range("A1").Select
ChDir "I:\Emblem Ish\nyc batch"
ActiveWorkbook.SaveAs Filename:="I:\Emblem Ish\nyc batch\cbpaobac.xls", _
FileFormat:=xlExcel8, Password:="", WriteResPassword:="", _
ReadOnlyRecommended:=False, CreateBackup:=False
ChDir "I:\Emblem Ish\nycrawtriangles\nycbatch"
ActiveWorkbook.SaveAs Filename:= _
"I:\Emblem Ish\nycrawtriangles\nycbatch\cbpaobac.xls", FileFormat:=xlExcel8, _
Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, _
CreateBackup:=False
ChDir "Q:\act_und\triangle\medi"
Workbooks.OpenText Filename:="Q:\act_und\triangle\medi\cbpaobas.tri", Origin _
:=437, StartRow:=1, DataType:=xlFixedWidth, FieldInfo:=Array(Array(0, 1), _
Array(7, 1), Array(19, 1), Array(32, 1), Array(45, 1), Array(58, 1), Array(71, 1), Array(84 _
, 1), Array(97, 1), Array(110, 1), Array(123, 1), Array(136, 1), Array(149, 1), Array(162, 1 _
), Array(175, 1), Array(188, 1), Array(201, 1), Array(214, 1), Array(227, 1), Array(240, 1) _
, Array(253, 1), Array(266, 1), Array(279, 1), Array(292, 1), Array(305, 1), Array(318, 1), _
Array(331, 1), Array(344, 1), Array(357, 1), Array(370, 1), Array(383, 1), Array(396, 1), _
Array(409, 1), Array(422, 1), Array(435, 1), Array(448, 1), Array(461, 1), Array(474, 1)) _
, TrailingMinusNumbers:=True
Rows("1:10").Select
Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
Range("A1").Select
ChDir "I:\Emblem Ish\nycrawtriangles\nycbatch"
ActiveWorkbook.SaveAs Filename:= _
"I:\Emblem Ish\nycrawtriangles\nycbatch\cbpaobas.xls", FileFormat:=xlExcel8, _
Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, _
CreateBackup:=False
ChDir "Q:\act_und\triangle\medi"
Workbooks.OpenText Filename:="Q:\act_und\triangle\medi\cbpaomm.tri", Origin _
:=437, StartRow:=1, DataType:=xlFixedWidth, FieldInfo:=Array(Array(0, 1), _
Array(7, 1), Array(19, 1), Array(32, 1), Array(45, 1), Array(58, 1), Array(71, 1), Array(84 _
, 1), Array(97, 1), Array(110, 1), Array(123, 1), Array(136, 1), Array(149, 1), Array(162, 1 _
), Array(175, 1), Array(188, 1), Array(201, 1), Array(214, 1), Array(227, 1), Array(240, 1) _
, Array(253, 1), Array(266, 1), Array(279, 1), Array(292, 1), Array(305, 1), Array(318, 1), _
Array(331, 1), Array(344, 1), Array(357, 1), Array(370, 1), Array(383, 1), Array(396, 1), _
Array(409, 1), Array(422, 1), Array(435, 1), Array(448, 1), Array(461, 1), Array(474, 1)) _
, TrailingMinusNumbers:=True
Rows("1:10").Select
Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
Range("A1").Select
ChDir "I:\Emblem Ish\nyc batch"
ActiveWorkbook.SaveAs Filename:="I:\Emblem Ish\nyc batch\cbpaomm.xls", _
FileFormat:=xlExcel8, Password:="", WriteResPassword:="", _
ReadOnlyRecommended:=False, CreateBackup:=False
ChDir "I:\Emblem Ish\nycrawtriangles\nycbatch"
ActiveWorkbook.SaveAs Filename:= _
"I:\Emblem Ish\nycrawtriangles\nycbatch\cbpaomm.xls", FileFormat:=xlExcel8, _
Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, _
CreateBackup:=False
ChDir "Q:\act_und\triangle\medi"
Workbooks.OpenText Filename:="Q:\act_und\triangle\medi\cbpaommc.tri", Origin _
:=437, StartRow:=1, DataType:=xlFixedWidth, FieldInfo:=Array(Array(0, 1), _
Array(7, 1), Array(19, 1), Array(32, 1), Array(45, 1), Array(58, 1), Array(71, 1), Array(84 _
, 1), Array(97, 1), Array(110, 1), Array(123, 1), Array(136, 1), Array(149, 1), Array(162, 1 _
), Array(175, 1), Array(188, 1), Array(201, 1), Array(214, 1), Array(227, 1), Array(240, 1) _
, Array(253, 1), Array(266, 1), Array(279, 1), Array(292, 1), Array(305, 1), Array(318, 1), _
Array(331, 1), Array(344, 1), Array(357, 1), Array(370, 1), Array(383, 1), Array(396, 1), _
Array(409, 1), Array(422, 1), Array(435, 1), Array(448, 1), Array(461, 1), Array(474, 1)) _
, TrailingMinusNumbers:=True
Rows("1:10").Select
Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
Range("A1").Select
ChDir "I:\Emblem Ish\nyc batch"
ActiveWorkbook.SaveAs Filename:="I:\Emblem Ish\nyc batch\cbpaommc.xls", _
FileFormat:=xlExcel8, Password:="", WriteResPassword:="", _
ReadOnlyRecommended:=False, CreateBackup:=False
ChDir "I:\Emblem Ish\nycrawtriangles\nycbatch"
ActiveWorkbook.SaveAs Filename:= _
"I:\Emblem Ish\nycrawtriangles\nycbatch\cbpaommc.xls", FileFormat:=xlExcel8, _
Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, _
CreateBackup:=False
ChDir "Q:\act_und\triangle\medi"
Workbooks.OpenText Filename:="Q:\act_und\triangle\medi\cbphiopt.tri", Origin _
:=437, StartRow:=1, DataType:=xlFixedWidth, FieldInfo:=Array(Array(0, 1), _
Array(7, 1), Array(19, 1), Array(32, 1), Array(45, 1), Array(58, 1), Array(71, 1), Array(84 _
, 1), Array(97, 1), Array(110, 1), Array(123, 1), Array(136, 1), Array(149, 1), Array(162, 1 _
), Array(175, 1), Array(188, 1), Array(201, 1), Array(214, 1), Array(227, 1), Array(240, 1) _
, Array(253, 1), Array(266, 1), Array(279, 1), Array(292, 1), Array(305, 1), Array(318, 1), _
Array(331, 1), Array(344, 1), Array(357, 1), Array(370, 1), Array(383, 1), Array(396, 1), _
Array(409, 1), Array(422, 1), Array(435, 1), Array(448, 1), Array(461, 1), Array(474, 1)) _
, TrailingMinusNumbers:=True
Rows("1:10").Select
Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
Range("A1").Select
ChDir "I:\Emblem Ish\nyc batch"
ActiveWorkbook.SaveAs Filename:="I:\Emblem Ish\nyc batch\cbphiopt.xls", _
FileFormat:=xlExcel8, Password:="", WriteResPassword:="", _
ReadOnlyRecommended:=False, CreateBackup:=False
ChDir "I:\Emblem Ish\nycrawtriangles\nycbatch"
ActiveWorkbook.SaveAs Filename:= _
"I:\Emblem Ish\nycrawtriangles\nycbatch\cbphiopt.xls", FileFormat:=xlExcel8, _
Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, _
CreateBackup:=False
ChDir "Q:\act_und\triangle\medi"
Workbooks.OpenText Filename:="Q:\act_und\triangle\medi\cbpscadb.tri", Origin _
:=437, StartRow:=1, DataType:=xlFixedWidth, FieldInfo:=Array(Array(0, 1), _
Array(7, 1), Array(19, 1), Array(32, 1), Array(45, 1), Array(58, 1), Array(71, 1), Array(84 _
, 1), Array(97, 1), Array(110, 1), Array(123, 1), Array(136, 1), Array(149, 1), Array(162, 1 _
), Array(175, 1), Array(188, 1), Array(201, 1), Array(214, 1), Array(227, 1), Array(240, 1) _
, Array(253, 1), Array(266, 1), Array(279, 1), Array(292, 1), Array(305, 1), Array(318, 1), _
Array(331, 1), Array(344, 1), Array(357, 1), Array(370, 1), Array(383, 1), Array(396, 1), _
Array(409, 1), Array(422, 1), Array(435, 1), Array(448, 1), Array(461, 1), Array(474, 1)) _
, TrailingMinusNumbers:=True
Rows("1:10").Select
Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
Range("A1").Select
ChDir "I:\Emblem Ish\nyc batch"
ActiveWorkbook.SaveAs Filename:="I:\Emblem Ish\nyc batch\cbpscadb.xls", _
FileFormat:=xlExcel8, Password:="", WriteResPassword:="", _
ReadOnlyRecommended:=False, CreateBackup:=False
ChDir "I:\Emblem Ish\nycrawtriangles\nycbatch"
ActiveWorkbook.SaveAs Filename:= _
"I:\Emblem Ish\nycrawtriangles\nycbatch\cbpscadb.xls", FileFormat:=xlExcel8, _
Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, _
CreateBackup:=False
ChDir "Q:\act_und\triangle\medi"
Workbooks.OpenText Filename:="Q:\act_und\triangle\medi\cbpscbas.tri", Origin _
:=437, StartRow:=1, DataType:=xlFixedWidth, FieldInfo:=Array(Array(0, 1), _
Array(7, 1), Array(19, 1), Array(32, 1), Array(45, 1), Array(58, 1), Array(71, 1), Array(84 _
, 1), Array(97, 1), Array(110, 1), Array(123, 1), Array(136, 1), Array(149, 1), Array(162, 1 _
), Array(175, 1), Array(188, 1), Array(201, 1), Array(214, 1), Array(227, 1), Array(240, 1) _
, Array(253, 1), Array(266, 1), Array(279, 1), Array(292, 1), Array(305, 1), Array(318, 1), _
Array(331, 1), Array(344, 1), Array(357, 1), Array(370, 1), Array(383, 1), Array(396, 1), _
Array(409, 1), Array(422, 1), Array(435, 1), Array(448, 1), Array(461, 1), Array(474, 1)) _
, TrailingMinusNumbers:=True
Rows("1:10").Select
Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
Range("A1").Select
ChDir "I:\Emblem Ish\nycrawtriangles\nycbatch"
ActiveWorkbook.SaveAs Filename:= _
"I:\Emblem Ish\nycrawtriangles\nycbatch\cbpscbas.xls", FileFormat:=xlExcel8, _
Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, _
CreateBackup:=False
ChDir "Q:\act_und\triangle\medi"
Workbooks.OpenText Filename:="Q:\act_und\triangle\medi\cbpscmm.tri", Origin _
:=437, StartRow:=1, DataType:=xlFixedWidth, FieldInfo:=Array(Array(0, 1), _
Array(7, 1), Array(19, 1), Array(32, 1), Array(45, 1), Array(58, 1), Array(71, 1), Array(84 _
, 1), Array(97, 1), Array(110, 1), Array(123, 1), Array(136, 1), Array(149, 1), Array(162, 1 _
), Array(175, 1), Array(188, 1), Array(201, 1), Array(214, 1), Array(227, 1), Array(240, 1) _
, Array(253, 1), Array(266, 1), Array(279, 1), Array(292, 1), Array(305, 1), Array(318, 1), _
Array(331, 1), Array(344, 1), Array(357, 1), Array(370, 1), Array(383, 1), Array(396, 1), _
Array(409, 1), Array(422, 1), Array(435, 1), Array(448, 1), Array(461, 1), Array(474, 1)) _
, TrailingMinusNumbers:=True
Rows("1:10").Select
Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
Range("A1").Select
ChDir "I:\Emblem Ish\nyc batch"
ActiveWorkbook.SaveAs Filename:="I:\Emblem Ish\nyc batch\cbpscmm.xls", _
FileFormat:=xlExcel8, Password:="", WriteResPassword:="", _
ReadOnlyRecommended:=False, CreateBackup:=False
ChDir "I:\Emblem Ish\nycrawtriangles\nycbatch"
ActiveWorkbook.SaveAs Filename:= _
"I:\Emblem Ish\nycrawtriangles\nycbatch\cbpscmm.xls", FileFormat:=xlExcel8, _
Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, _
CreateBackup:=False
ChDir "Q:\act_und\triangle\medi"
Workbooks.OpenText Filename:="Q:\act_und\triangle\medi\cobra3.tri", Origin _
:=437, StartRow:=1, DataType:=xlFixedWidth, FieldInfo:=Array(Array(0, 1), _
Array(7, 1), Array(19, 1), Array(32, 1), Array(45, 1), Array(58, 1), Array(71, 1), Array(84 _
, 1), Array(97, 1), Array(110, 1), Array(123, 1), Array(136, 1), Array(149, 1), Array(162, 1 _
), Array(175, 1), Array(188, 1), Array(201, 1), Array(214, 1), Array(227, 1), Array(240, 1) _
, Array(253, 1), Array(266, 1), Array(279, 1), Array(292, 1), Array(305, 1), Array(318, 1), _
Array(331, 1), Array(344, 1), Array(357, 1), Array(370, 1), Array(383, 1), Array(396, 1), _
Array(409, 1), Array(422, 1), Array(435, 1), Array(448, 1), Array(461, 1), Array(474, 1)) _
, TrailingMinusNumbers:=True
Rows("1:10").Select
Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
Range("A1").Select
ChDir "I:\Emblem Ish\nyc batch"
ActiveWorkbook.SaveAs Filename:="I:\Emblem Ish\nyc batch\cobra3.xls", _
FileFormat:=xlExcel8, Password:="", WriteResPassword:="", _
ReadOnlyRecommended:=False, CreateBackup:=False
ChDir "I:\Emblem Ish\nycrawtriangles\nycbatch"
ActiveWorkbook.SaveAs Filename:= _
"I:\Emblem Ish\nycrawtriangles\nycbatch\cobra3.xls", FileFormat:=xlExcel8, _
Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, _
CreateBackup:=False
ChDir "Q:\act_und\triangle\medi"
Workbooks.OpenText Filename:="Q:\act_und\triangle\medi\cobra4.tri", Origin _
:=437, StartRow:=1, DataType:=xlFixedWidth, FieldInfo:=Array(Array(0, 1), _
Array(7, 1), Array(19, 1), Array(32, 1), Array(45, 1), Array(58, 1), Array(71, 1), Array(84 _
, 1), Array(97, 1), Array(110, 1), Array(123, 1), Array(136, 1), Array(149, 1), Array(162, 1 _
), Array(175, 1), Array(188, 1), Array(201, 1), Array(214, 1), Array(227, 1), Array(240, 1) _
, Array(253, 1), Array(266, 1), Array(279, 1), Array(292, 1), Array(305, 1), Array(318, 1), _
Array(331, 1), Array(344, 1), Array(357, 1), Array(370, 1), Array(383, 1), Array(396, 1), _
Array(409, 1), Array(422, 1), Array(435, 1), Array(448, 1), Array(461, 1), Array(474, 1)) _
, TrailingMinusNumbers:=True
Rows("1:10").Select
Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
Range("A1").Select
ChDir "I:\Emblem Ish\nyc batch"
ActiveWorkbook.SaveAs Filename:="I:\Emblem Ish\nyc batch\cobra4.xls", _
FileFormat:=xlExcel8, Password:="", WriteResPassword:="", _
ReadOnlyRecommended:=False, CreateBackup:=False
ChDir "I:\Emblem Ish\nycrawtriangles\nycbatch"
ActiveWorkbook.SaveAs Filename:= _
"I:\Emblem Ish\nycrawtriangles\nycbatch\cobra4.xls", FileFormat:=xlExcel8, _
Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, _
CreateBackup:=False
ChDir "Q:\act_und\triangle\medi"
Workbooks.OpenText Filename:="Q:\act_und\triangle\medi\hioptcob.tri", Origin _
:=437, StartRow:=1, DataType:=xlFixedWidth, FieldInfo:=Array(Array(0, 1), _
Array(7, 1), Array(19, 1), Array(32, 1), Array(45, 1), Array(58, 1), Array(71, 1), Array(84 _
, 1), Array(97, 1), Array(110, 1), Array(123, 1), Array(136, 1), Array(149, 1), Array(162, 1 _
), Array(175, 1), Array(188, 1), Array(201, 1), Array(214, 1), Array(227, 1), Array(240, 1) _
, Array(253, 1), Array(266, 1), Array(279, 1), Array(292, 1), Array(305, 1), Array(318, 1), _
Array(331, 1), Array(344, 1), Array(357, 1), Array(370, 1), Array(383, 1), Array(396, 1), _
Array(409, 1), Array(422, 1), Array(435, 1), Array(448, 1), Array(461, 1), Array(474, 1)) _
, TrailingMinusNumbers:=True
Rows("1:10").Select
Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
Range("A1").Select
ChDir "I:\Emblem Ish\nyc batch"
ActiveWorkbook.SaveAs Filename:="I:\Emblem Ish\nyc batch\hioptcob.xls", _
FileFormat:=xlExcel8, Password:="", WriteResPassword:="", _
ReadOnlyRecommended:=False, CreateBackup:=False
ChDir "I:\Emblem Ish\nycrawtriangles\nycbatch"
ActiveWorkbook.SaveAs Filename:= _
"I:\Emblem Ish\nycrawtriangles\nycbatch\hioptcob.xls", FileFormat:=xlExcel8, _
Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, _
CreateBackup:=False
ChDir "Q:\act_und\triangle\medi"
Workbooks.OpenText Filename:="Q:\act_und\triangle\medi\sc5fund.tri", Origin _
:=437, StartRow:=1, DataType:=xlFixedWidth, FieldInfo:=Array(Array(0, 1), _
Array(7, 1), Array(19, 1), Array(32, 1), Array(45, 1), Array(58, 1), Array(71, 1), Array(84 _
, 1), Array(97, 1), Array(110, 1), Array(123, 1), Array(136, 1), Array(149, 1), Array(162, 1 _
), Array(175, 1), Array(188, 1), Array(201, 1), Array(214, 1), Array(227, 1), Array(240, 1) _
, Array(253, 1), Array(266, 1), Array(279, 1), Array(292, 1), Array(305, 1), Array(318, 1), _
Array(331, 1), Array(344, 1), Array(357, 1), Array(370, 1), Array(383, 1), Array(396, 1), _
Array(409, 1), Array(422, 1), Array(435, 1), Array(448, 1), Array(461, 1), Array(474, 1)) _
, TrailingMinusNumbers:=True
Rows("1:10").Select
Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
Range("A1").Select
ChDir "I:\Emblem Ish\nyc batch"
ActiveWorkbook.SaveAs Filename:="I:\Emblem Ish\nyc batch\sc5fund.xls", _
FileFormat:=xlExcel8, Password:="", WriteResPassword:="", _
ReadOnlyRecommended:=False, CreateBackup:=False
ChDir "I:\Emblem Ish\nycrawtriangles\nycbatch"
ActiveWorkbook.SaveAs Filename:= _
"I:\Emblem Ish\nycrawtriangles\nycbatch\sc5fund.xls", FileFormat:=xlExcel8, _
Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, _
CreateBackup:=False
ChDir "Q:\act_und\triangle\medi"
Workbooks.OpenText Filename:="Q:\act_und\triangle\medi\scgbff.tri", Origin _
:=437, StartRow:=1, DataType:=xlFixedWidth, FieldInfo:=Array(Array(0, 1), _
Array(7, 1), Array(19, 1), Array(32, 1), Array(45, 1), Array(58, 1), Array(71, 1), Array(84 _
, 1), Array(97, 1), Array(110, 1), Array(123, 1), Array(136, 1), Array(149, 1), Array(162, 1 _
), Array(175, 1), Array(188, 1), Array(201, 1), Array(214, 1), Array(227, 1), Array(240, 1) _
, Array(253, 1), Array(266, 1), Array(279, 1), Array(292, 1), Array(305, 1), Array(318, 1), _
Array(331, 1), Array(344, 1), Array(357, 1), Array(370, 1), Array(383, 1), Array(396, 1), _
Array(409, 1), Array(422, 1), Array(435, 1), Array(448, 1), Array(461, 1), Array(474, 1)) _
, TrailingMinusNumbers:=True
Rows("1:10").Select
Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
Range("A1").Select
ChDir "I:\Emblem Ish\nyc batch"
ActiveWorkbook.SaveAs Filename:="I:\Emblem Ish\nyc batch\scgbff.xls", _
FileFormat:=xlExcel8, Password:="", WriteResPassword:="", _
ReadOnlyRecommended:=False, CreateBackup:=False
ChDir "I:\Emblem Ish\nycrawtriangles\nycbatch"
ActiveWorkbook.SaveAs Filename:= _
"I:\Emblem Ish\nycrawtriangles\nycbatch\scgbff.xls", FileFormat:=xlExcel8, _
Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, _
CreateBackup:=False
ChDir "Q:\act_und\triangle\medi"
Workbooks.OpenText Filename:="Q:\act_und\triangle\medi\tcaobas.tri", Origin _
:=437, StartRow:=1, DataType:=xlFixedWidth, FieldInfo:=Array(Array(0, 1), _
Array(7, 1), Array(19, 1), Array(32, 1), Array(45, 1), Array(58, 1), Array(71, 1), Array(84 _
, 1), Array(97, 1), Array(110, 1), Array(123, 1), Array(136, 1), Array(149, 1), Array(162, 1 _
), Array(175, 1), Array(188, 1), Array(201, 1), Array(214, 1), Array(227, 1), Array(240, 1) _
, Array(253, 1), Array(266, 1), Array(279, 1), Array(292, 1), Array(305, 1), Array(318, 1), _
Array(331, 1), Array(344, 1), Array(357, 1), Array(370, 1), Array(383, 1), Array(396, 1), _
Array(409, 1), Array(422, 1), Array(435, 1), Array(448, 1), Array(461, 1), Array(474, 1)) _
, TrailingMinusNumbers:=True
Rows("1:10").Select
Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
Range("A1").Select
ChDir "I:\Emblem Ish\nyc batch"
ActiveWorkbook.SaveAs Filename:="I:\Emblem Ish\nyc batch\tcaobas.xls", _
FileFormat:=xlExcel8, Password:="", WriteResPassword:="", _
ReadOnlyRecommended:=False, CreateBackup:=False
ChDir "I:\Emblem Ish\nycrawtriangles\nycbatch"
ActiveWorkbook.SaveAs Filename:= _
"I:\Emblem Ish\nycrawtriangles\nycbatch\tcaobas.xls", FileFormat:=xlExcel8, _
Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, _
CreateBackup:=False
ChDir "Q:\act_und\triangle\medi"
Workbooks.OpenText Filename:="Q:\act_und\triangle\medi\tcaobasc.tri", Origin _
:=437, StartRow:=1, DataType:=xlFixedWidth, FieldInfo:=Array(Array(0, 1), _
Array(7, 1), Array(19, 1), Array(32, 1), Array(45, 1), Array(58, 1), Array(71, 1), Array(84 _
, 1), Array(97, 1), Array(110, 1), Array(123, 1), Array(136, 1), Array(149, 1), Array(162, 1 _
), Array(175, 1), Array(188, 1), Array(201, 1), Array(214, 1), Array(227, 1), Array(240, 1) _
, Array(253, 1), Array(266, 1), Array(279, 1), Array(292, 1), Array(305, 1), Array(318, 1), _
Array(331, 1), Array(344, 1), Array(357, 1), Array(370, 1), Array(383, 1), Array(396, 1), _
Array(409, 1), Array(422, 1), Array(435, 1), Array(448, 1), Array(461, 1), Array(474, 1)) _
, TrailingMinusNumbers:=True
Rows("1:10").Select
Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
Range("A1").Select
ChDir "I:\Emblem Ish\nyc batch"
ActiveWorkbook.SaveAs Filename:="I:\Emblem Ish\nyc batch\tcaobasc.xls", _
FileFormat:=xlExcel8, Password:="", WriteResPassword:="", _
ReadOnlyRecommended:=False, CreateBackup:=False
ChDir "I:\Emblem Ish\nycrawtriangles\nycbatch"
ActiveWorkbook.SaveAs Filename:= _
"I:\Emblem Ish\nycrawtriangles\nycbatch\tcaobasc.xls", FileFormat:=xlExcel8, _
Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, _
CreateBackup:=False
ChDir "Q:\act_und\triangle\medi"
Workbooks.OpenText Filename:="Q:\act_und\triangle\medi\tcaomn.tri", Origin _
:=437, StartRow:=1, DataType:=xlFixedWidth, FieldInfo:=Array(Array(0, 1), _
Array(7, 1), Array(19, 1), Array(32, 1), Array(45, 1), Array(58, 1), Array(71, 1), Array(84 _
, 1), Array(97, 1), Array(110, 1), Array(123, 1), Array(136, 1), Array(149, 1), Array(162, 1 _
), Array(175, 1), Array(188, 1), Array(201, 1), Array(214, 1), Array(227, 1), Array(240, 1) _
, Array(253, 1), Array(266, 1), Array(279, 1), Array(292, 1), Array(305, 1), Array(318, 1), _
Array(331, 1), Array(344, 1), Array(357, 1), Array(370, 1), Array(383, 1), Array(396, 1), _
Array(409, 1), Array(422, 1), Array(435, 1), Array(448, 1), Array(461, 1), Array(474, 1)) _
, TrailingMinusNumbers:=True
Rows("1:10").Select
Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
Range("A1").Select
ChDir "I:\Emblem Ish\nyc batch"
ActiveWorkbook.SaveAs Filename:="I:\Emblem Ish\nyc batch\tcaomn.xls", _
FileFormat:=xlExcel8, Password:="", WriteResPassword:="", _
ReadOnlyRecommended:=False, CreateBackup:=False
ChDir "I:\Emblem Ish\nycrawtriangles\nycbatch"
ActiveWorkbook.SaveAs Filename:= _
"I:\Emblem Ish\nycrawtriangles\nycbatch\tcaomn.xls", FileFormat:=xlExcel8, _
Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, _
CreateBackup:=False
ChDir "Q:\act_und\triangle\medi"
Workbooks.OpenText Filename:="Q:\act_und\triangle\medi\tcscbas.tri", Origin _
:=437, StartRow:=1, DataType:=xlFixedWidth, FieldInfo:=Array(Array(0, 1), _
Array(7, 1), Array(19, 1), Array(32, 1), Array(45, 1), Array(58, 1), Array(71, 1), Array(84 _
, 1), Array(97, 1), Array(110, 1), Array(123, 1), Array(136, 1), Array(149, 1), Array(162, 1 _
), Array(175, 1), Array(188, 1), Array(201, 1), Array(214, 1), Array(227, 1), Array(240, 1) _
, Array(253, 1), Array(266, 1), Array(279, 1), Array(292, 1), Array(305, 1), Array(318, 1), _
Array(331, 1), Array(344, 1), Array(357, 1), Array(370, 1), Array(383, 1), Array(396, 1), _
Array(409, 1), Array(422, 1), Array(435, 1), Array(448, 1), Array(461, 1), Array(474, 1)) _
, TrailingMinusNumbers:=True
 
Upvote 0
Rows("1:10").Select
Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
Range("A1").Select
ChDir "I:\Emblem Ish\nyc batch"
ActiveWorkbook.SaveAs Filename:="I:\Emblem Ish\nyc batch\tcscbas.xls", _
FileFormat:=xlExcel8, Password:="", WriteResPassword:="", _
ReadOnlyRecommended:=False, CreateBackup:=False
ChDir "I:\Emblem Ish\nycrawtriangles\nycbatch"
ActiveWorkbook.SaveAs Filename:= _
"I:\Emblem Ish\nycrawtriangles\nycbatch\tcscbas.xls", FileFormat:=xlExcel8, _
Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, _
CreateBackup:=False
ChDir "Q:\act_und\triangle\medi"
Workbooks.OpenText Filename:="Q:\act_und\triangle\medi\tcscmn.tri", Origin _
:=437, StartRow:=1, DataType:=xlFixedWidth, FieldInfo:=Array(Array(0, 1), _
Array(7, 1), Array(19, 1), Array(32, 1), Array(45, 1), Array(58, 1), Array(71, 1), Array(84 _
, 1), Array(97, 1), Array(110, 1), Array(123, 1), Array(136, 1), Array(149, 1), Array(162, 1 _
), Array(175, 1), Array(188, 1), Array(201, 1), Array(214, 1), Array(227, 1), Array(240, 1) _
, Array(253, 1), Array(266, 1), Array(279, 1), Array(292, 1), Array(305, 1), Array(318, 1), _
Array(331, 1), Array(344, 1), Array(357, 1), Array(370, 1), Array(383, 1), Array(396, 1), _
Array(409, 1), Array(422, 1), Array(435, 1), Array(448, 1), Array(461, 1), Array(474, 1)) _
, TrailingMinusNumbers:=True
Rows("1:10").Select
Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
Range("A1").Select
ChDir "I:\Emblem Ish\nyc batch"
ActiveWorkbook.SaveAs Filename:="I:\Emblem Ish\nyc batch\tcscmn.xls", _
FileFormat:=xlExcel8, Password:="", WriteResPassword:="", _
ReadOnlyRecommended:=False, CreateBackup:=False
ChDir "I:\Emblem Ish\nycrawtriangles\nycbatch"
ActiveWorkbook.SaveAs Filename:= _
"I:\Emblem Ish\nycrawtriangles\nycbatch\tcscmn.xls", FileFormat:=xlExcel8, _
Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, _
CreateBackup:=False
ChDir "Q:\act_und\nychome"
Workbooks.OpenText Filename:="Q:\act_und\nychome\cbphome", Origin:=437, _
StartRow:=1, DataType:=xlFixedWidth, FieldInfo:=Array(Array(0, 1), Array(10 _
, 1), Array(27, 1), Array(40, 1), Array(53, 1), Array(66, 1), Array(79, 1), Array(92, 1), _
Array(105, 1), Array(118, 1), Array(131, 1), Array(144, 1), Array(157, 1), Array(170, 1), _
Array(183, 1), Array(196, 1), Array(209, 1), Array(222, 1), Array(235, 1), Array(248, 1), _
Array(261, 1), Array(274, 1), Array(287, 1), Array(300, 1), Array(313, 1), Array(326, 1), _
Array(339, 1), Array(352, 1), Array(365, 1), Array(378, 1), Array(391, 1), Array(404, 1), _
Array(417, 1), Array(430, 1), Array(443, 1), Array(456, 1), Array(469, 1), Array(482, 1)) _
, TrailingMinusNumbers:=True
Rows("1:10").Select
Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
Rows("13:13").Select
Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
Range("A1").Select
ChDir "I:\Emblem Ish\nyc batch"
ActiveWorkbook.SaveAs Filename:="I:\Emblem Ish\nyc batch\cbphome.xls", _
FileFormat:=xlExcel8, Password:="", WriteResPassword:="", _
ReadOnlyRecommended:=False, CreateBackup:=False
ChDir "I:\Emblem Ish\nycrawtriangles\nycbatch"
ActiveWorkbook.SaveAs Filename:= _
"I:\Emblem Ish\nycrawtriangles\nycbatch\cbphome.xls", FileFormat:=xlExcel8, _
Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, _
CreateBackup:=False
ChDir "Q:\act_und\nychome"
Workbooks.OpenText Filename:="Q:\act_und\nychome\stereo", Origin:=437, _
StartRow:=1, DataType:=xlFixedWidth, FieldInfo:=Array(Array(0, 1), Array(12 _
, 1), Array(27, 1), Array(42, 1), Array(53, 1), Array(66, 1), Array(79, 1), Array(92, 1), _
Array(105, 1), Array(118, 1), Array(131, 1), Array(144, 1), Array(157, 1), Array(170, 1), _
Array(183, 1), Array(196, 1), Array(209, 1), Array(222, 1), Array(235, 1), Array(248, 1), _
Array(261, 1), Array(274, 1), Array(287, 1), Array(300, 1), Array(313, 1), Array(326, 1), _
Array(339, 1), Array(352, 1), Array(365, 1), Array(378, 1), Array(391, 1), Array(404, 1), _
Array(417, 1), Array(430, 1), Array(443, 1), Array(456, 1), Array(469, 1), Array(482, 1)) _
, TrailingMinusNumbers:=True
Rows("1:10").Select
Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
Rows("13:13").Select
Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
Range("A1").Select
ChDir "I:\Emblem Ish\nyc batch"
ActiveWorkbook.SaveAs Filename:="I:\Emblem Ish\nyc batch\stereo.xls", _
FileFormat:=xlExcel8, Password:="", WriteResPassword:="", _
ReadOnlyRecommended:=False, CreateBackup:=False
ChDir "I:\Emblem Ish\nycrawtriangles\nycbatch"
ActiveWorkbook.SaveAs Filename:= _
"I:\Emblem Ish\nycrawtriangles\nycbatch\stereo.xls", FileFormat:=xlExcel8, _
Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, _
CreateBackup:=False
ChDir "Q:\act_und\nychome"
Workbooks.OpenText Filename:="Q:\act_und\nychome\typchome", Origin:=437, _
StartRow:=1, DataType:=xlFixedWidth, FieldInfo:=Array(Array(0, 1), Array(12 _
, 1), Array(27, 1), Array(42, 1), Array(53, 1), Array(66, 1), Array(79, 1), Array(92, 1), _
Array(105, 1), Array(118, 1), Array(131, 1), Array(144, 1), Array(157, 1), Array(170, 1), _
Array(183, 1), Array(196, 1), Array(209, 1), Array(222, 1), Array(235, 1), Array(248, 1), _
Array(261, 1), Array(274, 1), Array(287, 1), Array(300, 1), Array(313, 1), Array(326, 1), _
Array(339, 1), Array(352, 1), Array(365, 1), Array(378, 1), Array(391, 1), Array(404, 1), _
Array(417, 1), Array(430, 1), Array(443, 1), Array(456, 1), Array(469, 1), Array(482, 1)) _
, TrailingMinusNumbers:=True
Rows("1:10").Select
Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
Rows("13:13").Select
Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
Range("A1").Select
ChDir "I:\Emblem Ish\nyc batch"
ActiveWorkbook.SaveAs Filename:="I:\Emblem Ish\nyc batch\typchome.xls", _
FileFormat:=xlExcel8, Password:="", WriteResPassword:="", _
ReadOnlyRecommended:=False, CreateBackup:=False
ChDir "I:\Emblem Ish\nycrawtriangles\nycbatch"
ActiveWorkbook.SaveAs Filename:= _
"I:\Emblem Ish\nycrawtriangles\nycbatch\typchome.xls", FileFormat:=xlExcel8, _
Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, _
CreateBackup:=False
ChDir "Q:\act_und\ufahome"
Workbooks.OpenText Filename:="Q:\act_und\ufahome\ufahome", Origin:=437, _
StartRow:=1, DataType:=xlFixedWidth, FieldInfo:=Array(Array(0, 1), Array(10 _
, 1), Array(27, 1), Array(40, 1), Array(53, 1), Array(66, 1), Array(79, 1), Array(92, 1), _
Array(105, 1), Array(118, 1), Array(131, 1), Array(144, 1), Array(157, 1), Array(170, 1), _
Array(183, 1), Array(196, 1), Array(209, 1), Array(222, 1), Array(235, 1), Array(248, 1), _
Array(261, 1), Array(274, 1), Array(287, 1), Array(300, 1), Array(313, 1), Array(326, 1), _
Array(339, 1), Array(352, 1), Array(365, 1), Array(378, 1), Array(391, 1), Array(404, 1), _
Array(417, 1), Array(430, 1), Array(443, 1), Array(456, 1), Array(469, 1), Array(482, 1)) _
, TrailingMinusNumbers:=True
Rows("1:10").Select
Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
Rows("13:13").Select
Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
Range("A1").Select
ChDir "I:\Emblem Ish\nyc batch"
ActiveWorkbook.SaveAs Filename:="I:\Emblem Ish\nyc batch\ufahome.xls", _
FileFormat:=xlExcel8, Password:="", WriteResPassword:="", _
ReadOnlyRecommended:=False, CreateBackup:=False
ChDir "I:\Emblem Ish\nycrawtriangles\nycbatch"
ActiveWorkbook.SaveAs Filename:= _
"I:\Emblem Ish\nycrawtriangles\nycbatch\ufahome.xls", FileFormat:=xlExcel8, _
Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, _
CreateBackup:=False
End Sub
 
Upvote 0
You must log in or register to reply here.

Similar threads

G
  • Question Question
VBA Filter Pivot Table Question
Replies
0
Views
476
gmazza76
G
S
  • Question Question
Macro for
Replies
2
Views
120
Sanderb
S
J
  • Question Question
Issue with Macros and renaming files
Replies
6
Views
1K
kevin9999
K
G
  • Solved
How do I automatically insert into next blank row..
Replies
2
Views
664
ghrek
G
C
  • Solved
Automation error The Object invoked has disconnected from its clients.
Replies
7
Views
1K
cstuder
C

Forum statistics

Threads
1,224,616
Messages
6,179,912
Members
452,949
Latest member
beartooth91

Share this page

We've detected that you are using an adblocker.

We have a great community of people providing Excel help here, but the hosting costs are enormous. You can help keep this site running by allowing ads on MrExcel.com.
Allow Ads at MrExcel

Which adblocker are you using?

Disable AdBlock

Follow these easy steps to disable AdBlock

1)Click on the icon in the browser’s toolbar.
2)Click on the icon in the browser’s toolbar.
2)Click on the "Pause on this site" option.
Go back

Disable AdBlock Plus

Follow these easy steps to disable AdBlock Plus

1)Click on the icon in the browser’s toolbar.
2)Click on the toggle to disable it for "mrexcel.com".
Go back

Disable uBlock Origin

Follow these easy steps to disable uBlock Origin

1)Click on the icon in the browser’s toolbar.
2)Click on the "Power" button.
3)Click on the "Refresh" button.
Go back

Disable uBlock

Follow these easy steps to disable uBlock

1)Click on the icon in the browser’s toolbar.
2)Click on the "Power" button.
3)Click on the "Refresh" button.
Go back
Back
Top