Create new workbook when macro is run

S

simon.pittaway

Please could anyone help me.

I have set up a macro that enables me to transfer data over from
various existing worksheets and pasting it into a new workbook for ease
of extraction onto an Oracle upload.

Because I created this Macro whilst working in the workbook name
"book2" the macro script currently looks to find and activate "Book2"
as default.

Is there anyway in which instead of activating Book2, that the macro
will create a new workbook as a pre-defined setting.

Thanks for all your time.

Si

p.s also if anyone has any ideas to shorten this macro it would be an
advantage, as you can probably tell, im quite new to the game. Coding
below.

Sub BudgetTest()
'
' BudgetTest Macro
' Macro recorded 14/11/2005 by Simon Pittaway
'

'
Workbooks.Add
Windows.Arrange ArrangeStyle:=xlTiled
Windows.Arrange ArrangeStyle:=xlTiled
With ActiveWindow
.Width = 242.25
.Height = 417
End With
Windows("13310 Finance & Procurement.xls").Activate
With ActiveWindow
.Top = 212.5
.Left = 342.25
End With
ActiveWindow.WindowState = xlNormal
With ActiveWindow
.Width = 486.75
.Height = 369.75
End With
With ActiveWindow
.Top = 10.75
.Left = 352.75
End With
With ActiveWindow
.Width = 378
.Height = 369.75
End With
With ActiveWindow
.Top = 1
.Left = 391.75
End With
With ActiveWindow
.Width = 378
.Height = 434.25
End With
Windows("Book2").Activate
With ActiveWindow
.Width = 393
.Height = 432
End With
Windows("13310 Finance & Procurement.xls").Activate
ActiveWindow.SmallScroll ToRight:=4
Windows("Book2").Activate
ActiveCell.FormulaR1C1 = "Apr-2005"
Range("A1").Select
ActiveCell.FormulaR1C1 = "'APR-05"
Range("A1").Select
Selection.Copy
Range("A2").Select
ActiveCell.FormulaR1C1 = ""
Range("B1").Select
Windows("13310 Finance & Procurement.xls").Activate
ActiveWindow.SmallScroll ToRight:=-1
Range("E9:E13,E16:E24,E27:E34").Select
Range("E27").Activate
ActiveWindow.SmallScroll Down:=31

Range("E9:E13,E16:E24,E27:E34,E35:E36,E39:E41,E44,E47:E50,E55:E60").Select
Range("E55").Activate
ActiveWindow.SmallScroll Down:=21
Range( _

"E9:E13,E16:E24,E27:E34,E35:E36,E39:E41,E44,E47:E50,E55:E60,E65,E69:E71,E74:E75,E80:E85"
_
).Select
Range("E80").Activate
ActiveWindow.SmallScroll Down:=28
Range( _

"E9:E13,E16:E24,E27:E34,E35:E36,E39:E41,E44,E47:E50,E55:E60,E65,E69:E71,E74:E75,E80:E85,E88:E89,E94"
_
).Select
Range("E94").Activate
Selection.Copy
Windows("Book2").Activate
ActiveSheet.Paste
Selection.Font.Bold = False
With Selection.Font
.Name = "Arial"
.Size = 10
.Strikethrough = False
.Superscript = False
.Subscript = False
.OutlineFont = False
.Shadow = False
.Underline = xlUnderlineStyleNone
.ColorIndex = xlAutomatic
End With
Selection.NumberFormat = "@"
Range("D49").Select
ActiveWindow.ScrollRow = 1
Range("C1").Select
Windows("13310 Finance & Procurement.xls").Activate
ActiveWindow.SmallScroll Down:=-80
ActiveWindow.SmallScroll ToRight:=-3
ActiveWindow.WindowState = xlMaximized
ActiveWindow.SmallScroll Down:=-72
Range("G15").Select
ActiveWindow.WindowState = xlNormal
With ActiveWindow
.Top = 218.5
.Left = 96.25
End With
With ActiveWindow
.Width = 757.5
.Height = 316.5
End With
With ActiveWindow
.Top = 37.75
.Left = 307
End With
With ActiveWindow
.Width = 636.75
.Height = 316.5
End With
With ActiveWindow
.Top = 37
.Left = 223.75
End With
Windows("Book4").Activate
ActiveCell.FormulaR1C1 = "'0000"
Range("D1").Select
ActiveCell.FormulaR1C1 = "'0000000000"
Range("E1").Select
ActiveCell.FormulaR1C1 = "'0000000000"
Range("F1").Select
ActiveCell.FormulaR1C1 = "'000"
Range("G1").Select
ActiveCell.FormulaR1C1 = "'00000"
Range("H1").Select
Windows("BudUPload Test.xls").Activate
Range("K15").Select
Windows("Book2").Activate
Range("C2").Select
Windows("BudUPload Test.xls").Activate
Range("F15").Select
With ActiveWindow
.Top = 37
.Left = 60.25
End With
ActiveWindow.Close
ActiveWindow.ScrollColumn = 1
Columns("B:B").Select
Selection.Insert Shift:=xlToRight
Range("B1").Select
Windows("13310 Finance & Procurement.xls").Activate
ActiveWindow.SmallScroll ToRight:=3
Range("D9").Select
Selection.Copy
Windows("Book2").Activate
Range("B1:B53").Select
ActiveSheet.Paste
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone,
SkipBlanks:= _
False, Transpose:=False
Selection.Font.Bold = False
With Selection.Font
.Name = "Arial"
.Size = 10
.Strikethrough = False
.Superscript = False
.Subscript = False
.OutlineFont = False
.Shadow = False
.Underline = xlUnderlineStyleNone
.ColorIndex = xlAutomatic
End With
Selection.NumberFormat = "@"
Range("A1").Select
Selection.Copy
Range("A2:A53").Select
ActiveSheet.Paste
Range("D1:H1").Select
Application.CutCopyMode = False
Selection.Copy
Range("D2:H53").Select
ActiveSheet.Paste
Range("F13").Select
ActiveWindow.SmallScroll ToRight:=-2
Range("F2").Select
ActiveCell.FormulaR1C1 = "'0000000000"
Range("F11").Select
Windows("13310 Finance & Procurement.xls").Activate
Windows("Book2").Activate
ActiveWindow.SmallScroll ToRight:=3
Range("I1").Select
Windows("13310 Finance & Procurement.xls").Activate
Range("G9:G13,G16:G24,G27:G36").Select
Range("G27").Activate
ActiveWindow.SmallScroll Down:=22
Range("G9:G13,G16:G24,G27:G36,G39:G41,G44,G47:G50,G55:G60").Select
Range("G55").Activate
ActiveWindow.SmallScroll Down:=22

Range("G9:G13,G16:G24,G27:G36,G39:G41,G44,G47:G50,G55:G60,G65,G69:G71,G74:G75")
_
.Select
Range("G74").Activate
ActiveWindow.SmallScroll Down:=14
Range( _

"G9:G13,G16:G24,G27:G36,G39:G41,G44,G47:G50,G55:G60,G65,G69:G71,G74:G75,G80:G85,G88:G89,G94"
_
).Select
Range("G94").Activate
ActiveWindow.SmallScroll Down:=13
Selection.Copy
Windows("Book2").Activate
ActiveWindow.SmallScroll Down:=-9
ActiveSheet.Paste
Application.CutCopyMode = False
With Selection.Font
.Name = "Arial"
.Size = 10
.Strikethrough = False
.Superscript = False
.Subscript = False
.OutlineFont = False
.Shadow = False
.Underline = xlUnderlineStyleNone
.ColorIndex = xlAutomatic
End With
ActiveWindow.SmallScroll Down:=-3
Selection.Interior.ColorIndex = xlNone
Selection.NumberFormat = "@"
Selection.Borders(xlDiagonalDown).LineStyle = xlNone
Selection.Borders(xlDiagonalUp).LineStyle = xlNone
Selection.Borders(xlEdgeLeft).LineStyle = xlNone
Selection.Borders(xlEdgeTop).LineStyle = xlNone
Selection.Borders(xlEdgeBottom).LineStyle = xlNone
Selection.Borders(xlEdgeRight).LineStyle = xlNone
Selection.Borders(xlInsideVertical).LineStyle = xlNone
Selection.Borders(xlInsideHorizontal).LineStyle = xlNone
Range("H11").Select
ActiveWindow.SmallScroll Down:=36
Range("I1:I53").Select
Range("I53").Activate
Selection.Font.Bold = False
Range("I41").Select
ActiveWindow.SmallScroll ToRight:=-3
Windows("13310 Finance & Procurement.xls").Activate
Windows("Book2").Activate
Columns("F:F").EntireColumn.AutoFit
Range("A53").Select
Selection.AutoFill Destination:=Range("A53:A54"),
Type:=xlFillDefault
Range("A53:A54").Select
Range("A54").Select
Selection.ClearContents
Range("A54").Select
ActiveCell.FormulaR1C1 = "May-2006"
Range("A54").Select
Selection.NumberFormat = "@"
Selection.NumberFormat = "m/d"
ActiveCell.FormulaR1C1 = "May-2006"
Range("A54").Select
ActiveCell.FormulaR1C1 = "'MAY-06"
Range("A53").Select
ActiveCell.FormulaR1C1 = "'APR-06"
Selection.Copy
Range("A1:A52").Select
Range("A52").Activate
ActiveSheet.Paste
Range("A55").Select
ActiveCell.FormulaR1C1 = ""
Range("B1:H53").Select
Range("B53").Activate
Selection.Copy
Range("B54").Select
ActiveSheet.Paste
Range("A54").Select
Application.CutCopyMode = False
Selection.Copy
Range("A55:A106").Select
ActiveSheet.Paste
Range("C55").Select
ActiveWindow.SmallScroll ToRight:=3
Range("I54").Select
Windows("13310 Finance & Procurement.xls").Activate
ActiveWindow.SmallScroll Down:=-87
Range("H9,H10:H13,H16:H24").Select
Range("H16").Activate
ActiveWindow.SmallScroll Down:=12
Range("H9,H10:H13,H16:H24,H27:H36,H39:H41,H44").Select
Range("H44").Activate
ActiveWindow.SmallScroll Down:=23

Range("H9,H10:H13,H16:H24,H27:H36,H39:H41,H44,H47:H50,H55:H60,H65").Select
Range("H65").Activate
ActiveWindow.SmallScroll Down:=17
Range( _

"H9,H10:H13,H16:H24,H27:H36,H39:H41,H44,H47:H50,H55:H60,H65,H69:H71,H74:H75,H80:H85"
_
).Select
Range("H80").Activate
ActiveWindow.SmallScroll Down:=24
Range( _

"H9,H10:H13,H16:H24,H27:H36,H39:H41,H44,H47:H50,H55:H60,H65,H69:H71,H74:H75,H80:H85,H88:H89,H94"
_
).Select
Range("H94").Activate
Application.CutCopyMode = False
Selection.Copy
Windows("Book2").Activate
ActiveSheet.Paste
Application.CutCopyMode = False
With Selection.Font
.Name = "Arial"
.Size = 10
.Strikethrough = False
.Superscript = False
.Subscript = False
.OutlineFont = False
.Shadow = False
.Underline = xlUnderlineStyleNone
.ColorIndex = xlAutomatic
End With
Selection.Interior.ColorIndex = xlNone
Selection.NumberFormat = "@"
Selection.Borders(xlDiagonalDown).LineStyle = xlNone
Selection.Borders(xlDiagonalUp).LineStyle = xlNone
Selection.Borders(xlEdgeLeft).LineStyle = xlNone
Selection.Borders(xlEdgeTop).LineStyle = xlNone
Selection.Borders(xlEdgeBottom).LineStyle = xlNone
Selection.Borders(xlEdgeRight).LineStyle = xlNone
Selection.Borders(xlInsideVertical).LineStyle = xlNone
Selection.Borders(xlInsideHorizontal).LineStyle = xlNone
With Selection.Font
.Name = "Arial"
.Size = 10
.Strikethrough = False
.Superscript = False
.Subscript = False
.OutlineFont = False
.Shadow = False
.Underline = xlUnderlineStyleNone
.ColorIndex = xlAutomatic
End With
Range("J55").Select
ActiveWindow.SmallScroll Down:=48
Range("I92:I106").Select
Selection.Font.Bold = False
Range("H100").Select
ActiveWindow.SmallScroll Down:=6
ActiveWindow.SmallScroll ToRight:=-3
Range("B54:H106").Select
Range("B106").Activate
With ActiveWindow
.Width = 393
.Height = 424.5
End With
ActiveWindow.ScrollColumn = 1
Selection.Copy
ActiveWindow.SmallScroll Down:=9
Range("B107").Select
ActiveSheet.Paste
Range("A107").Select
ActiveWindow.SmallScroll Down:=111
ActiveWindow.Close
Application.CutCopyMode = False
Selection.NumberFormat = "m/d"
ActiveCell.FormulaR1C1 = "'JUN-06"
Range("A107").Select
Selection.Copy
Range("A108:A159").Select
ActiveSheet.Paste
ActiveWindow.LargeScroll ToRight:=1
ActiveWindow.ScrollColumn = 5
Range("I107").Select
Windows("13310 Finance & Procurement.xls").Activate
ActiveWindow.SmallScroll Down:=-84
Range("I9:I13").Select
ActiveWindow.SmallScroll ToRight:=2
Range("I9:I13,I16:I23,I24").Select
Range("I24").Activate
ActiveWindow.SmallScroll Down:=14
Range("I9:I13,I16:I23,I24,I27:I36,I39:I41,I44").Select
Range("I44").Activate
ActiveWindow.SmallScroll Down:=26

Range("I9:I13,I16:I23,I24,I27:I36,I39:I41,I44,I47:I50,I55:I60,I65").Select
Range("I65").Activate
ActiveWindow.SmallScroll Down:=20
Range( _

"I9:I13,I16:I23,I24,I27:I36,I39:I41,I44,I47:I50,I55:I60,I65,I69:I71,I74:I75,I80:I85,I88:I89"
_
).Select
Range("I88").Activate
ActiveWindow.SmallScroll Down:=14
ActiveWindow.ScrollColumn = 1
ActiveWindow.LargeScroll ToRight:=1
ActiveWindow.SmallScroll ToRight:=2
Range( _

"I9:I13,I16:I23,I24,I27:I36,I39:I41,I44,I47:I50,I55:I60,I65,I69:I71,I74:I75,I80:I85,I88:I89,I94"
_
).Select
Range("I94").Activate
Application.CutCopyMode = False
Selection.Copy
Windows("Book2").Activate
ActiveSheet.Paste
Application.CutCopyMode = False
Selection.Borders(xlDiagonalDown).LineStyle = xlNone
Selection.Borders(xlDiagonalUp).LineStyle = xlNone
Selection.Borders(xlEdgeLeft).LineStyle = xlNone
Selection.Borders(xlEdgeTop).LineStyle = xlNone
Selection.Borders(xlEdgeBottom).LineStyle = xlNone
Selection.Borders(xlEdgeRight).LineStyle = xlNone
Selection.Borders(xlInsideVertical).LineStyle = xlNone
Selection.Borders(xlInsideHorizontal).LineStyle = xlNone
With Selection.Font
.Name = "Arial"
.Size = 10
.Strikethrough = False
.Superscript = False
.Subscript = False
.OutlineFont = False
.Shadow = False
.Underline = xlUnderlineStyleNone
.ColorIndex = xlAutomatic
End With
Selection.NumberFormat = "@"
Selection.Interior.ColorIndex = xlNone
Selection.Font.Bold = True
Selection.Font.Bold = False
ActiveWindow.SmallScroll Down:=48
ActiveWindow.SmallScroll ToRight:=-4
Range("A160").Select
ActiveWindow.SmallScroll Down:=3
Selection.NumberFormat = "m/d"
ActiveCell.FormulaR1C1 = "'JUL-06"
Range("B160").Select
ActiveWindow.SmallScroll ToRight:=2
Range("B107:H159").Select
Range("H159").Activate
Selection.Copy
ActiveWindow.LargeScroll ToRight:=-1
Range("B160").Select
ActiveSheet.Paste
Range("A161").Select
Application.WindowState = xlMinimized
Application.CutCopyMode = False
Application.WindowState = xlNormal
Range("A160").Select
Selection.Copy
Range("A161:A212").Select
ActiveSheet.Paste
Range("B165").Select
ActiveWindow.SmallScroll Down:=42
Range("G213").Select
Windows("13310 Finance & Procurement.xls").Activate
ActiveWindow.SmallScroll Down:=0
Windows("Book2").Activate
ActiveWindow.SmallScroll ToRight:=3
ActiveWindow.ScrollRow = 53
ActiveWindow.ScrollRow = 66
ActiveWindow.ScrollRow = 88
ActiveWindow.ScrollRow = 101
ActiveWindow.ScrollRow = 116
ActiveWindow.ScrollRow = 130
ActiveWindow.ScrollRow = 143
Range("I160").Select
Windows("13310 Finance & Procurement.xls").Activate
ActiveWindow.SmallScroll Down:=-78
Range("J9:J13,J16:J24,J27:J33").Select
Range("J27").Activate
ActiveWindow.SmallScroll Down:=24
Range("J9:J13,J16:J24,J27:J33,J34:J36,J39:J41,J44,J47:J50").Select
Range("J47").Activate
ActiveWindow.SmallScroll Down:=21
Range( _

"J9:J13,J16:J24,J27:J33,J34:J36,J39:J41,J44,J47:J50,J55:J59,J60,J65,J69:J71,J74:J75"
_
).Select
Range("J74").Activate
ActiveWindow.SmallScroll Down:=25
Range( _

"J9:J13,J16:J24,J27:J33,J34:J36,J39:J41,J44,J47:J50,J55:J59,J60,J65,J69:J71,J74:J75,J80:J85,J88:J89,J94"
_
).Select
Range("J94").Activate
Application.CutCopyMode = False
Selection.Copy
Windows("Book2").Activate
ActiveSheet.Paste
Selection.Font.Bold = True
Selection.Font.Bold = False
Selection.Borders(xlDiagonalDown).LineStyle = xlNone
Selection.Borders(xlDiagonalUp).LineStyle = xlNone
Selection.Borders(xlEdgeLeft).LineStyle = xlNone
Selection.Borders(xlEdgeTop).LineStyle = xlNone
Selection.Borders(xlEdgeBottom).LineStyle = xlNone
Selection.Borders(xlEdgeRight).LineStyle = xlNone
Selection.Borders(xlInsideVertical).LineStyle = xlNone
Selection.Borders(xlInsideHorizontal).LineStyle = xlNone
With Selection.Font
.Name = "Arial"
.Size = 10
.Strikethrough = False
.Superscript = False
.Subscript = False
.OutlineFont = False
.Shadow = False
.Underline = xlUnderlineStyleNone
.ColorIndex = xlAutomatic
End With
Selection.Interior.ColorIndex = xlNone
Selection.NumberFormat = "@"
Range("I162").Select
ActiveWindow.SmallScroll Down:=45
ActiveWindow.ScrollColumn = 1
With ActiveWindow
.Width = 393
.Height = 423
End With
Range("A213").Select
Selection.NumberFormat = "m/d"
ActiveCell.FormulaR1C1 = "'AUG-06"
Range("B213").Select
With ActiveWindow
.Width = 393
.Height = 434.25
End With
Range("C199").Select
ActiveWindow.SmallScroll ToRight:=2
Range("B160:H212").Select
Range("H212").Activate
Selection.Copy
ActiveWindow.LargeScroll ToRight:=-1
Range("B213").Select
ActiveSheet.Paste
ActiveWindow.SmallScroll ToRight:=2
Windows("13310 Finance & Procurement.xls").Activate
ActiveWindow.SmallScroll Down:=-69
ActiveWindow.SmallScroll ToRight:=2
Range("K9:K13,K16:K24,K27:K36,K39:K41,K44").Select
Range("K44").Activate
ActiveWindow.SmallScroll Down:=15
Range("K9:K13,K16:K24,K27:K36,K39:K41,K44,K47:K50,K55:K60").Select
Range("K55").Activate
ActiveWindow.SmallScroll Down:=29
Range( _

"K9:K13,K16:K24,K27:K36,K39:K41,K44,K47:K50,K55:K60,K65,K69:K71,K74:K75,K80:K85"
_
).Select
Range("K80").Activate
ActiveWindow.SmallScroll Down:=18
Range( _

"K9:K13,K16:K24,K27:K36,K39:K41,K44,K47:K50,K55:K60,K65,K69:K71,K74:K75,K80:K85,K88:K89,K94"
_
).Select
Range("K94").Activate
Application.CutCopyMode = False
Selection.Copy
Windows("Book2").Activate
Range("I213").Select
ActiveSheet.Paste
Application.CutCopyMode = False
Selection.Borders(xlDiagonalDown).LineStyle = xlNone
Selection.Borders(xlDiagonalUp).LineStyle = xlNone
Selection.Borders(xlEdgeLeft).LineStyle = xlNone
Selection.Borders(xlEdgeTop).LineStyle = xlNone
Selection.Borders(xlEdgeBottom).LineStyle = xlNone
Selection.Borders(xlEdgeRight).LineStyle = xlNone
Selection.Borders(xlInsideVertical).LineStyle = xlNone
Selection.Borders(xlInsideHorizontal).LineStyle = xlNone
Selection.Interior.ColorIndex = xlNone
With Selection.Font
.Name = "Arial"
.Size = 10
.Strikethrough = False
.Superscript = False
.Subscript = False
.OutlineFont = False
.Shadow = False
.Underline = xlUnderlineStyleNone
.ColorIndex = xlAutomatic
End With
Selection.NumberFormat = "@"
ActiveWindow.SmallScroll Down:=45
Selection.Font.Bold = True
Selection.Font.Bold = False
ActiveWindow.SmallScroll Down:=51
ActiveWindow.ScrollColumn = 1
ActiveWindow.SmallScroll Down:=-45
Range("A213").Select
Selection.Copy
Range("A214:A265").Select
ActiveSheet.Paste
Range("B217").Select
ActiveWindow.SmallScroll Down:=45
Range("A266").Select
Application.CutCopyMode = False
Selection.NumberFormat = "m/d"
ActiveCell.FormulaR1C1 = "'SEPT-06"
Range("B266").Select
ActiveWindow.SmallScroll ToRight:=2
Range("B213:H265").Select
Range("H265").Activate
Selection.Copy
ActiveWindow.LargeScroll ToRight:=-1
Range("B266").Select
ActiveSheet.Paste
Range("A266").Select
Application.CutCopyMode = False
Selection.Copy
Range("A267:A318").Select
ActiveSheet.Paste
Range("G271").Select
ActiveWindow.SmallScroll ToRight:=3
Range("I266").Select
Windows("13310 Finance & Procurement.xls").Activate
ActiveWindow.SmallScroll Down:=-78
Range("L9:L13,L16:L23,L24,L27:L32").Select
Range("L27").Activate
ActiveWindow.SmallScroll Down:=25

Range("L9:L13,L16:L23,L24,L27:L32,L33:L36,L39:L41,L44,L47:L50").Select
Range("L47").Activate
ActiveWindow.SmallScroll Down:=16
Range( _

"L9:L13,L16:L23,L24,L27:L32,L33:L36,L39:L41,L44,L47:L50,L55:L60,L65,L69:L71").
_
Select
Range("L69").Activate
ActiveWindow.SmallScroll Down:=25
Range( _

"L9:L13,L16:L23,L24,L27:L32,L33:L36,L39:L41,L44,L47:L50,L55:L60,L65,L69:L71,L74:L75,L80:L85,L88:L89,L94"
_
).Select
Range("L94").Activate
Application.CutCopyMode = False
Selection.Copy
Windows("Book2").Activate
ActiveSheet.Paste
Application.CutCopyMode = False
Selection.Borders(xlDiagonalDown).LineStyle = xlNone
Selection.Borders(xlDiagonalUp).LineStyle = xlNone
Selection.Borders(xlEdgeLeft).LineStyle = xlNone
Selection.Borders(xlEdgeTop).LineStyle = xlNone
Selection.Borders(xlEdgeBottom).LineStyle = xlNone
Selection.Borders(xlEdgeRight).LineStyle = xlNone
Selection.Borders(xlInsideVertical).LineStyle = xlNone
Selection.Borders(xlInsideHorizontal).LineStyle = xlNone
Selection.Interior.ColorIndex = xlNone
Selection.Font.Bold = True
Selection.Font.Bold = False
With Selection.Font
.Name = "Arial"
.Size = 10
.Strikethrough = False
.Superscript = False
.Subscript = False
.OutlineFont = False
.Shadow = False
.Underline = xlUnderlineStyleNone
.ColorIndex = xlAutomatic
End With
Selection.NumberFormat = "@"
ActiveWindow.SmallScroll Down:=48
ActiveWindow.ScrollColumn = 1
Range("A319").Select
Selection.NumberFormat = "m/d"
ActiveCell.FormulaR1C1 = "'OCT-06"
Range("B319").Select
ActiveWindow.SmallScroll ToRight:=2
Range("B266:H318").Select
Range("H318").Activate
Selection.Copy
ActiveWindow.LargeScroll ToRight:=-1
Range("B319").Select
ActiveSheet.Paste
Range("A319").Select
Application.CutCopyMode = False
Selection.Copy
Range("A320:A371").Select
ActiveSheet.Paste
ActiveWindow.SmallScroll ToRight:=3
Range("I319").Select
Windows("13310 Finance & Procurement.xls").Activate
ActiveWindow.SmallScroll ToRight:=3
ActiveWindow.SmallScroll Down:=-72
Range("M9:M12,M13,M16:M24").Select
Range("M16").Activate
ActiveWindow.SmallScroll Down:=21
Range("M9:M12,M13,M16:M24,M27:M36,M39:M41,M44,M47:M50").Select
Range("M47").Activate
ActiveWindow.SmallScroll Down:=20

Range("M9:M12,M13,M16:M24,M27:M36,M39:M41,M44,M47:M50,M55:M60,M65,M69:M71").
_
Select
Range("M69").Activate
ActiveWindow.SmallScroll Down:=18
Range( _

"M9:M12,M13,M16:M24,M27:M36,M39:M41,M44,M47:M50,M55:M60,M65,M69:M71,M74:M75,M80:M85"
_
).Select
Range("M80").Activate
ActiveWindow.SmallScroll Down:=15
Range( _

"M9:M12,M13,M16:M24,M27:M36,M39:M41,M44,M47:M50,M55:M60,M65,M69:M71,M74:M75,M80:M85,M88:M89,M94"
_
).Select
Range("M94").Activate
Application.CutCopyMode = False
Selection.Copy
Windows("Book2").Activate
ActiveSheet.Paste
Application.CutCopyMode = False
Selection.Borders(xlDiagonalDown).LineStyle = xlNone
Selection.Borders(xlDiagonalUp).LineStyle = xlNone
Selection.Borders(xlEdgeLeft).LineStyle = xlNone
Selection.Borders(xlEdgeTop).LineStyle = xlNone
Selection.Borders(xlEdgeBottom).LineStyle = xlNone
Selection.Borders(xlEdgeRight).LineStyle = xlNone
Selection.Borders(xlInsideVertical).LineStyle = xlNone
Selection.Borders(xlInsideHorizontal).LineStyle = xlNone
Selection.Interior.ColorIndex = xlNone
Selection.Font.Bold = True
Selection.Font.Bold = False
With Selection.Font
.Name = "Arial"
.Size = 10
.Strikethrough = False
.Superscript = False
.Subscript = False
.OutlineFont = False
.Shadow = False
.Underline = xlUnderlineStyleNone
.ColorIndex = xlAutomatic
End With
Selection.NumberFormat = "@"
Range("I317").Select
ActiveWindow.SmallScroll Down:=-12
Windows("13310 Finance & Procurement.xls").Activate
ActiveWindow.SmallScroll Down:=-39
Windows("Book2").Activate
ActiveWindow.SmallScroll Down:=57
ActiveWindow.LargeScroll ToRight:=-1
Range("A372").Select
Selection.NumberFormat = "m/d"
ActiveCell.FormulaR1C1 = "'NOV-06"
Range("B372").Select
ActiveWindow.SmallScroll ToRight:=3
Range("B319:H371").Select
Range("H371").Activate
Selection.Copy
ActiveWindow.LargeScroll ToRight:=-1
Range("B372").Select
ActiveSheet.Paste
Range("D377").Select
ActiveWindow.SmallScroll ToRight:=3
ActiveWindow.ScrollColumn = 1
Range("A372").Select
Application.CutCopyMode = False
Selection.Copy
Range("A373:A424").Select
ActiveSheet.Paste
Range("A377").Select
ActiveWindow.SmallScroll ToRight:=3
Range("I372").Select
Windows("13310 Finance & Procurement.xls").Activate
ActiveWindow.SmallScroll ToRight:=1
ActiveWindow.ScrollRow = 1
Range("N9:N13,N16:N24").Select
Range("N16").Activate
ActiveWindow.SmallScroll Down:=12
Range("N9:N13,N16:N24,N27:N36,N39:N41,N44").Select
Range("N44").Activate
ActiveWindow.SmallScroll Down:=26

Range("N9:N13,N16:N24,N27:N36,N39:N41,N44,N47:N50,N55:N60,N65,N69:N71").Select
Range("N69").Activate
ActiveWindow.SmallScroll Down:=26
Range( _

"N9:N13,N16:N24,N27:N36,N39:N41,N44,N47:N50,N55:N60,N65,N69:N71,N74:N75,N80:N85,N88:N89,N94"
_
).Select
Range("N94").Activate
Application.CutCopyMode = False
Selection.Copy
Windows("Book2").Activate
ActiveSheet.Paste
Application.CutCopyMode = False
Selection.Borders(xlDiagonalDown).LineStyle = xlNone
Selection.Borders(xlDiagonalUp).LineStyle = xlNone
Selection.Borders(xlEdgeLeft).LineStyle = xlNone
Selection.Borders(xlEdgeTop).LineStyle = xlNone
Selection.Borders(xlEdgeBottom).LineStyle = xlNone
Selection.Borders(xlEdgeRight).LineStyle = xlNone
Selection.Borders(xlInsideVertical).LineStyle = xlNone
Selection.Borders(xlInsideHorizontal).LineStyle = xlNone
With Selection.Font
.Name = "Arial"
.Size = 10
.Strikethrough = False
.Superscript = False
.Subscript = False
.OutlineFont = False
.Shadow = False
.Underline = xlUnderlineStyleNone
.ColorIndex = xlAutomatic
End With
Selection.Interior.ColorIndex = xlNone
Selection.Font.Bold = True
Selection.Font.Bold = False
Selection.NumberFormat = "@"
Range("J371").Select
ActiveWindow.SmallScroll Down:=45
ActiveWindow.LargeScroll ToRight:=-1
Range("A425").Select
Selection.NumberFormat = "m/d"
ActiveCell.FormulaR1C1 = "'DEC-06"
Range("B425").Select
ActiveWindow.SmallScroll ToRight:=3
Range("B372:H424").Select
Range("H424").Activate
Selection.Copy
ActiveWindow.SmallScroll Down:=3
ActiveWindow.LargeScroll ToRight:=-1
Range("B425").Select
ActiveSheet.Paste
Range("A425").Select
Application.CutCopyMode = False
Selection.Copy
Range("A426:A477").Select
ActiveSheet.Paste
Range("C431").Select
ActiveWindow.SmallScroll ToRight:=2
Windows("13310 Finance & Procurement.xls").Activate
ActiveWindow.SmallScroll Down:=-66
Range("O9:O13,O16:O23,O24").Select
Range("O24").Activate
ActiveWindow.SmallScroll Down:=15
Range("O9:O13,O16:O23,O24,O27:O36,O39:O41,O44").Select
Range("O44").Activate
ActiveWindow.SmallScroll Down:=12

Range("O9:O13,O16:O23,O24,O27:O36,O39:O41,O44,O47:O50,O55:O60").Select
Range("O55").Activate
ActiveWindow.SmallScroll Down:=24
Range( _

"O9:O13,O16:O23,O24,O27:O36,O39:O41,O44,O47:O50,O55:O60,O65,O69:O71,O74:O75").
_
Select
Range("O74").Activate
ActiveWindow.SmallScroll Down:=14
Range( _

"O9:O13,O16:O23,O24,O27:O36,O39:O41,O44,O47:O50,O55:O60,O65,O69:O71,O74:O75,O80:O85,O88:O89,O94"
_
).Select
Range("O94").Activate
Application.CutCopyMode = False
Selection.Copy
Windows("Book2").Activate
Range("I425").Select
ActiveSheet.Paste
Application.CutCopyMode = False
Selection.Borders(xlDiagonalDown).LineStyle = xlNone
Selection.Borders(xlDiagonalUp).LineStyle = xlNone
Selection.Borders(xlEdgeLeft).LineStyle = xlNone
Selection.Borders(xlEdgeTop).LineStyle = xlNone
Selection.Borders(xlEdgeBottom).LineStyle = xlNone
Selection.Borders(xlEdgeRight).LineStyle = xlNone
Selection.Borders(xlInsideVertical).LineStyle = xlNone
Selection.Borders(xlInsideHorizontal).LineStyle = xlNone
Selection.Interior.ColorIndex = xlNone
With Selection.Font
.Name = "Arial"
.Size = 10
.Strikethrough = False
.Superscript = False
.Subscript = False
.OutlineFont = False
.Shadow = False
.Underline = xlUnderlineStyleNone
.ColorIndex = xlAutomatic
End With
Selection.Font.Bold = True
Selection.Font.Bold = False
Selection.NumberFormat = "@"
Range("H424").Select
ActiveWindow.SmallScroll Down:=42
ActiveWindow.SmallScroll ToRight:=-2
Range("A478").Select
Columns("E:E").EntireColumn.AutoFit
Columns("F:F").EntireColumn.AutoFit
Range("G477").Select
ActiveWindow.ScrollColumn = 3
ActiveWindow.ScrollColumn = 1
Range("A478").Select
Selection.NumberFormat = "m/d"
ActiveCell.FormulaR1C1 = "'JAN-06"
Range("B478").Select
ActiveCell.FormulaR1C1 = ""
Range("B477").Select
ActiveWindow.SmallScroll ToRight:=2
Range("B477").Select
ActiveWindow.SmallScroll ToRight:=2
Range("B425:H477").Select
Range("H477").Activate
Selection.Copy
ActiveWindow.LargeScroll ToRight:=-1
Range("B478").Select
ActiveSheet.Paste
Range("A478").Select
Application.CutCopyMode = False
Selection.Copy
Range("A479:A530").Select
ActiveSheet.Paste
Range("C485").Select
ActiveWindow.SmallScroll ToRight:=3
Windows("13310 Finance & Procurement.xls").Activate
ActiveWindow.SmallScroll Down:=-64
Range("P9:p13,P16:p24").Select
Range("P16").Activate
ActiveWindow.LargeScroll Down:=0
Range("P9:p13,P16:p24,P27:p35").Select
Range("P27").Activate
ActiveWindow.SmallScroll Down:=5
Range("P9:p13,P16:p24,P27:p35,P37:Q37,P36,P37").Select
Range("P37").Activate
ActiveWindow.SmallScroll Down:=9
Range("P9:p13,P16:p24,P27:p35,P37:Q37,P36,P37,P39:p41").Select
Range("P39").Activate
ActiveWindow.SmallScroll Down:=-21
Range("P9:p13,P16:p24").Select
Range("P16").Activate
ActiveWindow.SmallScroll Down:=12
Range("P9:p13,P16:p24,P27:p36,P39:p41").Select
Range("P39").Activate
ActiveWindow.SmallScroll Down:=22

Range("P9:p13,P16:p24,P27:p36,P39:p41,P44,P47:p50,P55:p60,P65").Select
Range("P65").Activate
ActiveWindow.SmallScroll Down:=15

Range("P9:p13,P16:p24,P27:p36,P39:p41,P44,P47:p50,P55:p60,P65,P69:p71,P74:p75")
_
.Select
Range("P74").Activate
ActiveWindow.SmallScroll Down:=13
Range( _

"P9:p13,P16:p24,P27:p36,P39:p41,P44,P47:p50,P55:p60,P65,P69:p71,P74:p75,P80:p85,P88:p89,P94"
_
).Select
Range("P94").Activate
ActiveWindow.SmallScroll Down:=4
Application.CutCopyMode = False
Selection.Copy
Windows("Book2").Activate
Range("I478").Select
ActiveSheet.Paste
Application.CutCopyMode = False
Selection.Borders(xlDiagonalDown).LineStyle = xlNone
Selection.Borders(xlDiagonalUp).LineStyle = xlNone
Selection.Borders(xlEdgeLeft).LineStyle = xlNone
Selection.Borders(xlEdgeTop).LineStyle = xlNone
Selection.Borders(xlEdgeBottom).LineStyle = xlNone
Selection.Borders(xlEdgeRight).LineStyle = xlNone
Selection.Borders(xlInsideVertical).LineStyle = xlNone
Selection.Borders(xlInsideHorizontal).LineStyle = xlNone
Selection.Font.Bold = True
Selection.Font.Bold = False
With Selection.Font
.Name = "Arial"
.Size = 10
.Strikethrough = False
.Superscript = False
.Subscript = False
.OutlineFont = False
.Shadow = False
.Underline = xlUnderlineStyleNone
.ColorIndex = xlAutomatic
End With
Selection.Interior.ColorIndex = xlNone
Selection.NumberFormat = "@"
Range("I475").Select
ActiveWindow.SmallScroll Down:=45
ActiveWindow.LargeScroll ToRight:=-1
Range("A531").Select
Selection.NumberFormat = "m/d"
ActiveCell.FormulaR1C1 = "'FEB'05"
Range("A531").Select
ActiveCell.FormulaR1C1 = "'FEB-05"
Range("B531").Select
ActiveWindow.SmallScroll ToRight:=2
Range("B478:H530").Select
Range("H530").Activate
Selection.Copy
ActiveWindow.SmallScroll Down:=6
ActiveWindow.LargeScroll ToRight:=-1
Range("B531").Select
ActiveSheet.Paste
Range("A531").Select
Application.CutCopyMode = False
Selection.Copy
Range("A532:A583").Select
ActiveSheet.Paste
Range("C539").Select
ActiveWindow.SmallScroll ToRight:=3
Range("I531").Select
Windows("13310 Finance & Procurement.xls").Activate
ActiveWindow.SmallScroll ToRight:=2
ActiveWindow.SmallScroll Down:=-66
Range("Q9:Q13,Q16:Q24,Q27:Q33").Select
Range("Q27").Activate
ActiveWindow.SmallScroll Down:=25
Range("Q9:Q13,Q16:Q24,Q27:Q33,Q34:Q36,Q39:Q41,Q44,Q47:Q50").Select
Range("Q47").Activate
ActiveWindow.SmallScroll Down:=20

Range("Q9:Q13,Q16:Q24,Q27:Q33,Q34:Q36,Q39:Q41,Q44,Q47:Q50,Q55:Q60,Q65").Select
Range("Q65").Activate
ActiveWindow.SmallScroll Down:=11
Range( _

"Q9:Q13,Q16:Q24,Q27:Q33,Q34:Q36,Q39:Q41,Q44,Q47:Q50,Q55:Q60,Q65,Q69:Q71,Q74:Q75,Q80:Q85"
_
).Select
Range("Q80").Activate
ActiveWindow.SmallScroll Down:=16
Range( _

"Q9:Q13,Q16:Q24,Q27:Q33,Q34:Q36,Q39:Q41,Q44,Q47:Q50,Q55:Q60,Q65,Q69:Q71,Q74:Q75,Q80:Q85,Q88:Q89,Q94"
_
).Select
Range("Q94").Activate
Application.CutCopyMode = False
Selection.Copy
Windows("Book2").Activate
ActiveSheet.Paste
Application.CutCopyMode = False
Selection.Borders(xlDiagonalDown).LineStyle = xlNone
Selection.Borders(xlDiagonalUp).LineStyle = xlNone
Selection.Borders(xlEdgeLeft).LineStyle = xlNone
Selection.Borders(xlEdgeTop).LineStyle = xlNone
Selection.Borders(xlEdgeBottom).LineStyle = xlNone
Selection.Borders(xlEdgeRight).LineStyle = xlNone
Selection.Borders(xlInsideVertical).LineStyle = xlNone
Selection.Borders(xlInsideHorizontal).LineStyle = xlNone
With Selection.Font
.Name = "Arial"
.Size = 10
.Strikethrough = False
.Superscript = False
.Subscript = False
.OutlineFont = False
.Shadow = False
.Underline = xlUnderlineStyleNone
.ColorIndex = xlAutomatic
End With
Selection.Font.Bold = True
Selection.Font.Bold = False
Selection.Interior.ColorIndex = xlNone
Selection.NumberFormat = "@"
Range("J529").Select
ActiveWindow.SmallScroll Down:=45
ActiveWindow.LargeScroll ToRight:=-1
Range("A584").Select
Selection.NumberFormat = "m/d"
ActiveCell.FormulaR1C1 = "'MAR-06"
Range("B584").Select
ActiveWindow.SmallScroll ToRight:=2
Range("B531:H583").Select
Range("H583").Activate
Selection.Copy
ActiveWindow.LargeScroll ToRight:=-1
Range("B584").Select
ActiveSheet.Paste
Range("A584").Select
Application.CutCopyMode = False
Selection.Copy
Range("A585:A636").Select
ActiveSheet.Paste
Application.WindowState = xlNormal
ActiveWindow.SmallScroll Down:=42
Windows("13310 Finance & Procurement.xls").Activate
ActiveWindow.SmallScroll Down:=-78
Range("R9:R13,R16:R24").Select
Range("R16").Activate
ActiveWindow.SmallScroll Down:=14
Range("R9:R13,R16:R24,R27:R36,R39:R41").Select
Range("R39").Activate
ActiveWindow.SmallScroll Down:=22
Range("R9:R13,R16:R24,R27:R36,R39:R41,R43,R44,R43").Select
Range("R43").Activate
ActiveWindow.ScrollRow = 1
Range("R9:R13,R16:R24").Select
Range("R16").Activate
ActiveWindow.SmallScroll Down:=17
Range("R9:R13,R16:R24,R27:R36,R39:R41,R44").Select
Range("R44").Activate
ActiveWindow.SmallScroll Down:=16

Range("R9:R13,R16:R24,R27:R36,R39:R41,R44,R47:R50,R55:R60,R65").Select
Range("R65").Activate
ActiveWindow.SmallScroll Down:=26
Range( _

"R9:R13,R16:R24,R27:R36,R39:R41,R44,R47:R50,R55:R60,R65,R69:R71,R74:R75,R80:R85"
_
).Select
Range("R80").Activate
ActiveWindow.SmallScroll Down:=11
Range( _

"R9:R13,R16:R24,R27:R36,R39:R41,R44,R47:R50,R55:R60,R65,R69:R71,R74:R75,R80:R85,R88:R89,R94"
_
).Select
Range("R94").Activate
Application.CutCopyMode = False
Selection.Copy
Windows("Book2").Activate
ActiveWindow.SmallScroll ToRight:=5
ActiveWindow.SmallScroll Down:=-45
Range("I584").Select
ActiveSheet.Paste
Application.CutCopyMode = False
Selection.Borders(xlDiagonalDown).LineStyle = xlNone
Selection.Borders(xlDiagonalUp).LineStyle = xlNone
Selection.Borders(xlEdgeLeft).LineStyle = xlNone
Selection.Borders(xlEdgeTop).LineStyle = xlNone
Selection.Borders(xlEdgeBottom).LineStyle = xlNone
Selection.Borders(xlEdgeRight).LineStyle = xlNone
Selection.Borders(xlInsideVertical).LineStyle = xlNone
Selection.Borders(xlInsideHorizontal).LineStyle = xlNone
Selection.Interior.ColorIndex = xlNone
With Selection.Font
.Name = "Arial"
.Size = 10
.Strikethrough = False
.Superscript = False
.Subscript = False
.OutlineFont = False
.Shadow = False
.Underline = xlUnderlineStyleNone
.ColorIndex = xlAutomatic
End With
Selection.Font.Bold = True
Selection.Font.Bold = False
Selection.NumberFormat = "@"
Range("J583").Select
ActiveWindow.LargeScroll ToRight:=-1
ActiveWindow.SmallScroll Down:=47
Windows("13310 Finance & Procurement.xls").Activate
Range("E88").Select
Windows("Book2").Activate
Range("E634").Select
ActiveWindow.SmallScroll ToRight:=3
Range("I634:I635").Select
Selection.Cut
Range("J634").Select
ActiveSheet.Paste
Range("J628").Select
ActiveWindow.SmallScroll ToRight:=-1
Columns("D:D").Select
Range("D614").Activate
ActiveWindow.FreezePanes = True
Range("F631").Select
ActiveWindow.SmallScroll ToRight:=3
ActiveWindow.SmallScroll Down:=3
Range("I581:I582").Select
Selection.Cut
Range("J581").Select
ActiveSheet.Paste
Range("I528:I529").Select
Selection.Cut
Range("J528").Select
ActiveSheet.Paste
Range("I475:I476").Select
Selection.Cut
Range("J475").Select
ActiveSheet.Paste
Range("I422:I423").Select
Selection.Cut
Range("J422").Select
ActiveSheet.Paste
Range("I369:I370").Select
Selection.Cut
Range("J369").Select
ActiveSheet.Paste
Range("I316:I317").Select
Selection.Copy
Application.CutCopyMode = False
Selection.Cut
Range("J316").Select
ActiveSheet.Paste
Range("I263:I264").Select
Selection.Cut
Range("J263").Select
ActiveSheet.Paste
Range("I210").Select
Selection.Cut
Range("I210:I211").Select
Application.CutCopyMode = False
Selection.Cut
Range("J210").Select
ActiveSheet.Paste
Range("I157").Select
Selection.Cut
Range("I157:I158").Select
Application.CutCopyMode = False
Selection.Cut
Range("J157").Select
ActiveSheet.Paste
Range("I104:I105").Select
Selection.Cut
Range("J104").Select
ActiveSheet.Paste
Range("I51:I52").Select
Selection.Cut
Range("J51").Select
ActiveSheet.Paste
Range("I1").Select
Windows("13310 Finance & Procurement.xls").Activate
Range("E71").Select
Windows("Book2").Activate
Range("I42").Select
Selection.Cut
Range("J42").Select
ActiveSheet.Paste
Range("I95").Select
Selection.Cut
Range("J95").Select
ActiveSheet.Paste
ActiveWindow.SmallScroll Down:=57
Range("I148").Select
Selection.Cut
Range("J148").Select
ActiveSheet.Paste
Range("J136").Select
ActiveWindow.SmallScroll Down:=60
Range("I201").Select
Selection.Cut
Range("J201").Select
ActiveSheet.Paste
ActiveWindow.SmallScroll Down:=51
Range("I254").Select
Selection.Cut
Range("J254").Select
ActiveSheet.Paste
ActiveWindow.SmallScroll Down:=51
Range("I307").Select
Selection.Cut
Range("J307").Select
ActiveSheet.Paste
ActiveWindow.SmallScroll Down:=57
Range("I360").Select
Selection.Cut
Range("J360").Select
ActiveSheet.Paste
ActiveWindow.SmallScroll Down:=54
Range("I413").Select
Selection.Cut
Range("J413").Select
ActiveSheet.Paste
ActiveWindow.SmallScroll Down:=48
Range("I466").Select
Selection.Cut
Range("J466").Select
ActiveSheet.Paste
ActiveWindow.SmallScroll Down:=51
Range("I519").Select
Selection.Cut
Range("J519").Select
ActiveSheet.Paste
ActiveWindow.SmallScroll Down:=51
Range("I572").Select
Selection.Cut
Range("J572").Select
ActiveSheet.Paste
ActiveWindow.SmallScroll Down:=51
Range("I625").Select
Selection.Cut
Range("J625").Select
ActiveSheet.Paste
Range("J625").Select
ActiveWindow.SmallScroll Down:=21
ActiveWindow.LargeScroll ToRight:=-1
ActiveWindow.LargeScroll Down:=-21
With ActiveWindow
.Top = 0.25
.Left = 24.25
End With
Range("F17").Select
With ActiveWindow
.Top = 1.75
.Left = 4.75
End With
Windows("13310 Finance & Procurement.xls").Activate
Range("E55").Select
ActiveWindow.SmallScroll Down:=-9
Windows("Book2").Activate
ActiveWindow.SmallScroll Down:=-27
Range("I33:I38").Select
ActiveWindow.SmallScroll ToRight:=2
Selection.Cut
Range("J33").Select
ActiveSheet.Paste
ActiveWindow.SmallScroll Down:=54
Range("I86:I91").Select
Selection.Cut
Range("J86").Select
ActiveSheet.Paste
ActiveWindow.SmallScroll Down:=57
Range("I139:I144").Select
Selection.Cut
Range("J139").Select
ActiveSheet.Paste
ActiveWindow.SmallScroll Down:=15
Range("J152").Select
Application.WindowState = xlMinimized
Application.WindowState = xlNormal
ActiveWindow.SmallScroll Down:=36
Range("I192:I197").Select
Selection.Cut
Range("J192").Select
ActiveSheet.Paste
ActiveWindow.SmallScroll Down:=51
Range("I245:I250").Select
Selection.Cut
Range("J245").Select
ActiveSheet.Paste
ActiveWindow.SmallScroll Down:=51
Range("I298:I303").Select
Selection.Cut
Range("J298").Select
ActiveSheet.Paste
ActiveWindow.SmallScroll Down:=60
Range("I351:I356").Select
Selection.Cut
Range("J351").Select
ActiveSheet.Paste
ActiveWindow.SmallScroll Down:=54
Range("I404:I409").Select
Selection.Cut
Range("J404").Select
ActiveSheet.Paste
ActiveWindow.SmallScroll Down:=57
Range("I457:I462").Select
Selection.Cut
Range("J457").Select
ActiveSheet.Paste
ActiveWindow.SmallScroll Down:=51
Range("I510:I515").Select
Selection.Cut
Range("J510").Select
ActiveSheet.Paste
ActiveWindow.SmallScroll Down:=57
Range("I563:I568").Select
Selection.Cut
Range("J563").Select
ActiveSheet.Paste
ActiveWindow.SmallScroll Down:=45
Range("I616:I621").Select
Selection.Cut
Range("J616").Select
ActiveSheet.Paste
Range("J616").Select
ActiveWindow.SmallScroll Down:=-183
ActiveWindow.ScrollRow = 1
Windows("13310 Finance & Procurement.xls").Activate
ActiveWindow.LargeScroll ToRight:=2
ActiveWindow.SmallScroll Down:=-48
ActiveWindow.ScrollColumn = 1
Range("B22:C23").Select
Range("C23").Activate
Windows("Book2").Activate
Columns("C:C").Select
ActiveWindow.FreezePanes = False
Range("F5:F6").Select
ActiveWindow.SmallScroll ToRight:=-2
Range("D7").Select
ActiveWindow.SmallScroll Down:=36
ActiveWindow.ScrollRow = 246
ActiveWindow.ScrollRow = 354
ActiveWindow.ScrollRow = 459
ActiveWindow.ScrollRow = 507
ActiveWindow.ScrollRow = 550
ActiveWindow.ScrollRow = 561
ActiveWindow.ScrollRow = 597
ActiveWindow.ScrollRow = 607
ActiveWindow.ScrollRow = 1
Rows("1:1").Select
Selection.Insert Shift:=xlDown
Range("I1").Select
ActiveCell.FormulaR1C1 = "D"
Range("J1").Select
ActiveCell.FormulaR1C1 = "C"
Range("J3").Select
End Sub
 
B

Bob Phillips

To shorten it

Change all lines similar to

Range("A1").Select
ActiveCell.FormulaR1C1 = "'APR-05"

to

Range("A1").FormulaR1C1 = "'APR-05"

Remove all lines like

ActiveWindow.SmallScroll

Change lines like

Range("E94").Activate
Selection.Copy

to

Range("E94").Copy

Change lines like

Range("D1").Select
ActiveCell.FormulaR1C1 = "'0000000000"

to

Range("D1").FormulaR1C1 = "'0000000000"

When you have lines like ths

Windows("Book2").Activate
Range("C2").Select
Windows("BudUPload Test.xls").Activate

which don't do anything to the previous objects, remove the redundant code
like so to

Windows("BudUPload Test.xls").Activate

Change lines like

Columns("B:B").Select
Selection.Insert Shift:=xlToRight

to

Columns("B:B").Insert Shift:=xlToRight

There are loads of other ways to reduce it (remove the selecting completely,
move repeated code to separate procedures), but this should make a big
initial difference.

--

HTH

RP
(remove nothere from the email address if mailing direct)
 
B

Bob Phillips

Oh, and be careful, change lines like this

Range("A54").Select
Selection.NumberFormat = "@"
Selection.NumberFormat = "m/d"
ActiveCell.FormulaR1C1 = "May-2006"

to

With Range("A54")
.NumberFormat = "@"
.NumberFormat = "m/d"
.FormulaR1C1 = "May-2006"
End With

at the start, otherwise subsequent selections and activecell will not work.


--

HTH

RP
(remove nothere from the email address if mailing direct)
 

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Similar Threads

Help with macro 1
Run Macros 11
Help merging two VBA codes 2
Hlp! Adv Filter - Non-Contiguous rows don't copy 11
Why is Excel 2007 macro creating extra blank rows? 1
Code issue 2
Macro to sort, format, sum, a dynamic set of data 2
Macro Loop 0

Top