Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Create new workbook when macro is run
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:E5 0,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:E5 0,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:G6 0,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").Se lect 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,H5 5: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,H5 5: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").Se lect 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,I5 5: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,I5 5: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:J5 0,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:J5 0,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:K6 0,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:K6 0,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,L4 7: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,L4 7: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,M5 5: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,M5 5: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:N6 0,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").Se lect 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,O5 5: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,O5 5: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").Se lect 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:P6 0,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:Q5 0,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:Q5 0,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:R6 0,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:R6 0,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 |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
Create new workbook when macro is run
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) wrote in message ups.com... 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:E5 0,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:E5 0,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:G7 5") _ .Select Range("G74").Activate ActiveWindow.SmallScroll Down:=14 Range( _ "G9:G13,G16:G24,G27:G36,G39:G41,G44,G47:G50,G55:G6 0,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").Se lect 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,H5 5: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,H5 5: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").Se lect 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,I5 5: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,I5 5: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:J5 0,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:J5 0,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:K6 0,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:K6 0,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,L4 7: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,L4 7: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,M5 5: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,M5 5: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").Sele ct Range("N69").Activate ActiveWindow.SmallScroll Down:=26 Range( _ "N9:N13,N16:N24,N27:N36,N39:N41,N44,N47:N50,N55:N6 0,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").Se lect 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,O5 5: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,O5 5: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").Se lect 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:P7 5") _ .Select Range("P74").Activate ActiveWindow.SmallScroll Down:=13 Range( _ "P9:P13,P16:P24,P27:P36,P39:P41,P44,P47:P50,P55:P6 0,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").Sele ct Range("Q65").Activate ActiveWindow.SmallScroll Down:=11 Range( _ "Q9:Q13,Q16:Q24,Q27:Q33,Q34:Q36,Q39:Q41,Q44,Q47:Q5 0,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:Q5 0,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:R6 0,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:R6 0,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 |
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
Create new workbook when macro is run
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) wrote in message ups.com... 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:E5 0,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:E5 0,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:G7 5") _ .Select Range("G74").Activate ActiveWindow.SmallScroll Down:=14 Range( _ "G9:G13,G16:G24,G27:G36,G39:G41,G44,G47:G50,G55:G6 0,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").Se lect 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,H5 5: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,H5 5: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").Se lect 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,I5 5: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,I5 5: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:J5 0,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:J5 0,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:K6 0,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:K6 0,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,L4 7: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,L4 7: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,M5 5: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,M5 5: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").Sele ct Range("N69").Activate ActiveWindow.SmallScroll Down:=26 Range( _ "N9:N13,N16:N24,N27:N36,N39:N41,N44,N47:N50,N55:N6 0,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").Se lect 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,O5 5: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,O5 5: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").Se lect 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:P7 5") _ .Select Range("P74").Activate ActiveWindow.SmallScroll Down:=13 Range( _ "P9:P13,P16:P24,P27:P36,P39:P41,P44,P47:P50,P55:P6 0,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").Sele ct Range("Q65").Activate ActiveWindow.SmallScroll Down:=11 Range( _ "Q9:Q13,Q16:Q24,Q27:Q33,Q34:Q36,Q39:Q41,Q44,Q47:Q5 0,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:Q5 0,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:R6 0,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:R6 0,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 |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Macro to create a Weekly Workbook | Excel Discussion (Misc queries) | |||
create personal macro workbook | Excel Worksheet Functions | |||
Create a macro to copy data from one workbook to another | Excel Discussion (Misc queries) | |||
Macro to create new workbook and sheets | Excel Discussion (Misc queries) | |||
create new macro in new workbook | Excel Programming |