Call us on +234 818 422 6144

Home » Uncategorized » Search replace shc results

Search replace shc results

AGRIC

Sub AgricResultSheet()

Workbooks.Open ThisWorkbook.Path & “\agric-score-sheet-ss2-veritas-1st-term-2015-2016.xlsx”
Range(“H2:N2,H3:N3,H4:N4,H5:N5,H6:N6,H7:N7,H8:N8,H9:N9,H10:N10,H11:N11,H12:N12,H13:N13,H14:N14,H15:N15,H16:N16,H17:N17,H18:N18,H19:N19,H20:N20,H21:N21,H22:N22,H23:N23,H24:N24,H25:N25,H26:N26,H27:N27,H28:N28,H29:N29,H30:N30,H31:N31,H32:N32″).Copy
Application.DisplayAlerts = False
ActiveWorkbook.Close

ActiveSheet.Paste Destination:=Worksheets(“sheet1″).Range(“CH2:CN2″)

End Sub

ALL SUBJECT

Sub AllSubjectResultSheet()

Workbooks.Open ThisWorkbook.Path & “\agric-score-sheet-ss2-veritas-1st-term-2015-2016.xlsx”
Range(“H2:N2,H3:N3,H4:N4,H5:N5,H6:N6,H7:N7,H8:N8,H9:N9,H10:N10,H11:N11,H12:N12,H13:N13,H14:N14,H15:N15,H16:N16,H17:N17,H18:N18,H19:N19,H20:N20,H21:N21,H22:N22,H23:N23,H24:N24,H25:N25,H26:N26,H27:N27,H28:N28,H29:N29,H30:N30,H31:N31,H32:N32″).Copy
Application.DisplayAlerts = False
ActiveWorkbook.Close

ActiveSheet.Paste Destination:=Worksheets(“sheet1″).Range(“CH2:CN2″)

Workbooks.Open ThisWorkbook.Path & “\biology-score-sheet-ss2-veritas-1st-term-2015-2016.xlsx”
Range(“H2:N2,H3:N3,H4:N4,H5:N5,H6:N6,H7:N7,H8:N8,H9:N9,H10:N10,H11:N11,H12:N12,H13:N13,H14:N14,H15:N15,H16:N16,H17:N17,H18:N18,H19:N19,H20:N20,H21:N21,H22:N22,H23:N23,H24:N24,H25:N25,H26:N26,H27:N27,H28:N28,H29:N29,H30:N30,H31:N31,H32:N32″).Copy
Application.DisplayAlerts = False
ActiveWorkbook.Close

ActiveSheet.Paste Destination:=Worksheets(“sheet1″).Range(“BF2:BL2″)

Workbooks.Open ThisWorkbook.Path & “\chemistry-score-sheet-ss2-veritas-1st-term-2015-2016.xlsx”
Range(“H2:N2,H3:N3,H4:N4,H5:N5,H6:N6,H7:N7,H8:N8,H9:N9,H10:N10,H11:N11,H12:N12,H13:N13,H14:N14,H15:N15,H16:N16,H17:N17,H18:N18,H19:N19,H20:N20,H21:N21,H22:N22,H23:N23,H24:N24,H25:N25,H26:N26,H27:N27,H28:N28,H29:N29,H30:N30,H31:N31,H32:N32″).Copy
Application.DisplayAlerts = False
ActiveWorkbook.Close

ActiveSheet.Paste Destination:=Worksheets(“sheet1″).Range(“AR2:AX2″)

Workbooks.Open ThisWorkbook.Path & “\civic-score-sheet-ss2-veritas-1st-term-2015-2016.xlsx”
Range(“H2:N2,H3:N3,H4:N4,H5:N5,H6:N6,H7:N7,H8:N8,H9:N9,H10:N10,H11:N11,H12:N12,H13:N13,H14:N14,H15:N15,H16:N16,H17:N17,H18:N18,H19:N19,H20:N20,H21:N21,H22:N22,H23:N23,H24:N24,H25:N25,H26:N26,H27:N27,H28:N28,H29:N29,H30:N30,H31:N31,H32:N32″).Copy
Application.DisplayAlerts = False
ActiveWorkbook.Close

ActiveSheet.Paste Destination:=Worksheets(“sheet1″).Range(“AK2:AQ2″)

Workbooks.Open ThisWorkbook.Path & “\commerce-score-sheet-ss2-veritas-1st-term-2015-2016.xlsx”
Range(“H2:N2,H3:N3,H4:N4,H5:N5,H6:N6,H7:N7,H8:N8,H9:N9,H10:N10,H11:N11,H12:N12,H13:N13,H14:N14,H15:N15,H16:N16,H17:N17,H18:N18,H19:N19,H20:N20,H21:N21,H22:N22,H23:N23,H24:N24,H25:N25,H26:N26,H27:N27,H28:N28,H29:N29,H30:N30,H31:N31,H32:N32″).Copy
Application.DisplayAlerts = False
ActiveWorkbook.Close

ActiveSheet.Paste Destination:=Worksheets(“sheet1″).Range(“FU2:GA2″)

Workbooks.Open ThisWorkbook.Path & “\creative-art-score-sheet-ss2-veritas-1st-term-2015-2016.xlsx”
Range(“H2:N2,H3:N3,H4:N4,H5:N5,H6:N6,H7:N7,H8:N8,H9:N9,H10:N10,H11:N11,H12:N12,H13:N13,H14:N14,H15:N15,H16:N16,H17:N17,H18:N18,H19:N19,H20:N20,H21:N21,H22:N22,H23:N23,H24:N24,H25:N25,H26:N26,H27:N27,H28:N28,H29:N29,H30:N30,H31:N31,H32:N32″).Copy
Application.DisplayAlerts = False
ActiveWorkbook.Close

ActiveSheet.Paste Destination:=Worksheets(“sheet1″).Range(“ES2:EY2″)

Workbooks.Open ThisWorkbook.Path & “\crs-score-sheet-ss2-veritas-1st-term-2015-2016.xlsx”
Range(“H2:N2,H3:N3,H4:N4,H5:N5,H6:N6,H7:N7,H8:N8,H9:N9,H10:N10,H11:N11,H12:N12,H13:N13,H14:N14,H15:N15,H16:N16,H17:N17,H18:N18,H19:N19,H20:N20,H21:N21,H22:N22,H23:N23,H24:N24,H25:N25,H26:N26,H27:N27,H28:N28,H29:N29,H30:N30,H31:N31,H32:N32″).Copy
Application.DisplayAlerts = False
ActiveWorkbook.Close

ActiveSheet.Paste Destination:=Worksheets(“sheet1″).Range(“EL2:ER2″)

Workbooks.Open ThisWorkbook.Path & “\economics-score-sheet-ss2-veritas-1st-term-2015-2016.xlsx”
Range(“H2:N2,H3:N3,H4:N4,H5:N5,H6:N6,H7:N7,H8:N8,H9:N9,H10:N10,H11:N11,H12:N12,H13:N13,H14:N14,H15:N15,H16:N16,H17:N17,H18:N18,H19:N19,H20:N20,H21:N21,H22:N22,H23:N23,H24:N24,H25:N25,H26:N26,H27:N27,H28:N28,H29:N29,H30:N30,H31:N31,H32:N32″).Copy
Application.DisplayAlerts = False
ActiveWorkbook.Close

ActiveSheet.Paste Destination:=Worksheets(“sheet1″).Range(“EE2:EK2″)

Workbooks.Open ThisWorkbook.Path & “\english-score-sheet-ss2-veritas-1st-term-2015-2016.xlsx”
Range(“H2:N2,H3:N3,H4:N4,H5:N5,H6:N6,H7:N7,H8:N8,H9:N9,H10:N10,H11:N11,H12:N12,H13:N13,H14:N14,H15:N15,H16:N16,H17:N17,H18:N18,H19:N19,H20:N20,H21:N21,H22:N22,H23:N23,H24:N24,H25:N25,H26:N26,H27:N27,H28:N28,H29:N29,H30:N30,H31:N31,H32:N32″).Copy
Application.DisplayAlerts = False
ActiveWorkbook.Close

ActiveSheet.Paste Destination:=Worksheets(“sheet1″).Range(“I2:O2″)

Workbooks.Open ThisWorkbook.Path & “\exams-and-records-sheet-ss2-veritas-1st-term-2015-2016.xlsx”
Range(“A2:H2,A3:H3,A4:H4,A5:H5,A6:H6,A7:H7,A8:H8,A9:H9,A10:H10,A11:H11,A12:H12,A13:H13,A14:H14,A15:H15,A16:H16,A17:H17,A18:H18,A19:H19,A20:H20,A21:H21,A22:H22,A23:H23,A24:H24,A25:H25,A26:H26,A27:H27,A28:H28,A29:H29,A30:H30,A31:H31,A32:H32″).Copy
Application.DisplayAlerts = False
ActiveWorkbook.Close

ActiveSheet.Paste Destination:=Worksheets(“sheet1″).Range(“A2:H2″)

Workbooks.Open ThisWorkbook.Path & “\financial-accounting-score-sheet-ss2-veritas-1st-term-2015-2016.xlsx”
Range(“H2:N2,H3:N3,H4:N4,H5:N5,H6:N6,H7:N7,H8:N8,H9:N9,H10:N10,H11:N11,H12:N12,H13:N13,H14:N14,H15:N15,H16:N16,H17:N17,H18:N18,H19:N19,H20:N20,H21:N21,H22:N22,H23:N23,H24:N24,H25:N25,H26:N26,H27:N27,H28:N28,H29:N29,H30:N30,H31:N31,H32:N32″).Copy
Application.DisplayAlerts = False
ActiveWorkbook.Close

ActiveSheet.Paste Destination:=Worksheets(“sheet1″).Range(“FG2:FM2″)

Workbooks.Open ThisWorkbook.Path & “\food-and-nutrition-score-sheet-ss2-veritas-1st-term-2015-2016.xlsx”
Range(“H2:N2,H3:N3,H4:N4,H5:N5,H6:N6,H7:N7,H8:N8,H9:N9,H10:N10,H11:N11,H12:N12,H13:N13,H14:N14,H15:N15,H16:N16,H17:N17,H18:N18,H19:N19,H20:N20,H21:N21,H22:N22,H23:N23,H24:N24,H25:N25,H26:N26,H27:N27,H28:N28,H29:N29,H30:N30,H31:N31,H32:N32″).Copy
Application.DisplayAlerts = False
ActiveWorkbook.Close

ActiveSheet.Paste Destination:=Worksheets(“sheet1″).Range(“CA2:CG2″)

Workbooks.Open ThisWorkbook.Path & “\form-teachers-sheet-ss2-veritas-1st-term-2015-2016.xlsx”
Range(“H2:AJ2,H3:AJ3,H4:AJ4,H5:AJ5,H6:AJ6,H7:AJ7,H9:AJ9,H10:AJ10,H11:AJ11,H12:AJ12,H13:AJ13,H14:AJ14,H15:AJ15,H16:AJ16,H17:AJ17,H18:AJ18,H19:AJ19,H20:AJ20,H21:AJ21,H22:AJ22,H23:AJ23,H24:AJ24,H25:AJ25,H26:AJ26,H27:AJ27,H28:AJ28,H29:AJ29,H30:AJ30,H31:AJ31,H32:AJ32″).Copy
Application.DisplayAlerts = False
ActiveWorkbook.Close

ActiveSheet.Paste Destination:=Worksheets(“sheet1″).Range(“GB2:HD2″)

Workbooks.Open ThisWorkbook.Path & “\french-score-sheet-ss2-veritas-1st-term-2015-2016.xlsx”
Range(“H2:N2,H3:N3,H4:N4,H5:N5,H6:N6,H7:N7,H8:N8,H9:N9,H10:N10,H11:N11,H12:N12,H13:N13,H14:N14,H15:N15,H16:N16,H17:N17,H18:N18,H19:N19,H20:N20,H21:N21,H22:N22,H23:N23,H24:N24,H25:N25,H26:N26,H27:N27,H28:N28,H29:N29,H30:N30,H31:N31,H32:N32″).Copy
Application.DisplayAlerts = False
ActiveWorkbook.Close

ActiveSheet.Paste Destination:=Worksheets(“sheet1″).Range(“CV2:DB2″)

Workbooks.Open ThisWorkbook.Path & “\further-maths-score-sheet-ss2-veritas-1st-term-2015-2016.xlsx”
Range(“H2:N2,H3:N3,H4:N4,H5:N5,H6:N6,H7:N7,H8:N8,H9:N9,H10:N10,H11:N11,H12:N12,H13:N13,H14:N14,H15:N15,H16:N16,H17:N17,H18:N18,H19:N19,H20:N20,H21:N21,H22:N22,H23:N23,H24:N24,H25:N25,H26:N26,H27:N27,H28:N28,H29:N29,H30:N30,H31:N31,H32:N32″).Copy
Application.DisplayAlerts = False
ActiveWorkbook.Close

ActiveSheet.Paste Destination:=Worksheets(“sheet1″).Range(“BM2:BS2″)

Workbooks.Open ThisWorkbook.Path & “\geography-score-sheet-ss2-veritas-1st-term-2015-2016.xlsx”
Range(“H2:N2,H3:N3,H4:N4,H5:N5,H6:N6,H7:N7,H8:N8,H9:N9,H10:N10,H11:N11,H12:N12,H13:N13,H14:N14,H15:N15,H16:N16,H17:N17,H18:N18,H19:N19,H20:N20,H21:N21,H22:N22,H23:N23,H24:N24,H25:N25,H26:N26,H27:N27,H28:N28,H29:N29,H30:N30,H31:N31,H32:N32″).Copy
Application.DisplayAlerts = False
ActiveWorkbook.Close

ActiveSheet.Paste Destination:=Worksheets(“sheet1″).Range(“DX2:ED2″)

Workbooks.Open ThisWorkbook.Path & “\government-score-sheet-ss2-veritas-1st-term-2015-2016.xlsx”
Range(“H2:N2,H3:N3,H4:N4,H5:N5,H6:N6,H7:N7,H8:N8,H9:N9,H10:N10,H11:N11,H12:N12,H13:N13,H14:N14,H15:N15,H16:N16,H17:N17,H18:N18,H19:N19,H20:N20,H21:N21,H22:N22,H23:N23,H24:N24,H25:N25,H26:N26,H27:N27,H28:N28,H29:N29,H30:N30,H31:N31,H32:N32″).Copy
Application.DisplayAlerts = False
ActiveWorkbook.Close

ActiveSheet.Paste Destination:=Worksheets(“sheet1″).Range(“DQ2:DW2″)

Workbooks.Open ThisWorkbook.Path & “\ict-score-sheet-ss2-veritas-1st-term-2015-2016.xlsx”
Range(“H2:N2,H3:N3,H4:N4,H5:N5,H6:N6,H7:N7,H8:N8,H9:N9,H10:N10,H11:N11,H12:N12,H13:N13,H14:N14,H15:N15,H16:N16,H17:N17,H18:N18,H19:N19,H20:N20,H21:N21,H22:N22,H23:N23,H24:N24,H25:N25,H26:N26,H27:N27,H28:N28,H29:N29,H30:N30,H31:N31,H32:N32″).Copy
Application.DisplayAlerts = False
ActiveWorkbook.Close

ActiveSheet.Paste Destination:=Worksheets(“sheet1″).Range(“AD2:AJ2″)

Workbooks.Open ThisWorkbook.Path & “\igbo-score-sheet-ss2-veritas-1st-term-2015-2016.xlsx”
Range(“H2:N2,H3:N3,H4:N4,H5:N5,H6:N6,H7:N7,H8:N8,H9:N9,H10:N10,H11:N11,H12:N12,H13:N13,H14:N14,H15:N15,H16:N16,H17:N17,H18:N18,H19:N19,H20:N20,H21:N21,H22:N22,H23:N23,H24:N24,H25:N25,H26:N26,H27:N27,H28:N28,H29:N29,H30:N30,H31:N31,H32:N32″).Copy
Application.DisplayAlerts = False
ActiveWorkbook.Close

ActiveSheet.Paste Destination:=Worksheets(“sheet1″).Range(“DJ2:DP2″)

Workbooks.Open ThisWorkbook.Path & “\insurance-score-sheet-ss2-veritas-1st-term-2015-2016.xlsx”
Range(“H2:N2,H3:N3,H4:N4,H5:N5,H6:N6,H7:N7,H8:N8,H9:N9,H10:N10,H11:N11,H12:N12,H13:N13,H14:N14,H15:N15,H16:N16,H17:N17,H18:N18,H19:N19,H20:N20,H21:N21,H22:N22,H23:N23,H24:N24,H25:N25,H26:N26,H27:N27,H28:N28,H29:N29,H30:N30,H31:N31,H32:N32″).Copy
Application.DisplayAlerts = False
ActiveWorkbook.Close

ActiveSheet.Paste Destination:=Worksheets(“sheet1″).Range(“FN2:FT2″)

Workbooks.Open ThisWorkbook.Path & “\literature-in-english-score-sheet-ss2-veritas-1st-term-2015-2016.xlsx”
Range(“H2:N2,H3:N3,H4:N4,H5:N5,H6:N6,H7:N7,H8:N8,H9:N9,H10:N10,H11:N11,H12:N12,H13:N13,H14:N14,H15:N15,H16:N16,H17:N17,H18:N18,H19:N19,H20:N20,H21:N21,H22:N22,H23:N23,H24:N24,H25:N25,H26:N26,H27:N27,H28:N28,H29:N29,H30:N30,H31:N31,H32:N32″).Copy
Application.DisplayAlerts = False
ActiveWorkbook.Close

ActiveSheet.Paste Destination:=Worksheets(“sheet1″).Range(“CO2:CU2″)

Workbooks.Open ThisWorkbook.Path & “\maths-score-sheet-ss2-veritas-1st-term-2015-2016.xlsx”
Range(“H2:N2,H3:N3,H4:N4,H5:N5,H6:N6,H7:N7,H8:N8,H9:N9,H10:N10,H11:N11,H12:N12,H13:N13,H14:N14,H15:N15,H16:N16,H17:N17,H18:N18,H19:N19,H20:N20,H21:N21,H22:N22,H23:N23,H24:N24,H25:N25,H26:N26,H27:N27,H28:N28,H29:N29,H30:N30,H31:N31,H32:N32″).Copy
Application.DisplayAlerts = False
ActiveWorkbook.Close

ActiveSheet.Paste Destination:=Worksheets(“sheet1″).Range(“P2:V2″)

Workbooks.Open ThisWorkbook.Path & “\music-score-sheet-ss2-veritas-1st-term-2015-2016.xlsx”
Range(“H2:N2,H3:N3,H4:N4,H5:N5,H6:N6,H7:N7,H8:N8,H9:N9,H10:N10,H11:N11,H12:N12,H13:N13,H14:N14,H15:N15,H16:N16,H17:N17,H18:N18,H19:N19,H20:N20,H21:N21,H22:N22,H23:N23,H24:N24,H25:N25,H26:N26,H27:N27,H28:N28,H29:N29,H30:N30,H31:N31,H32:N32″).Copy
Application.DisplayAlerts = False
ActiveWorkbook.Close

ActiveSheet.Paste Destination:=Worksheets(“sheet1″).Range(“EZ2:FF2″)

Workbooks.Open ThisWorkbook.Path & “\physics-score-sheet-ss2-veritas-1st-term-2015-2016.xlsx”
Range(“H2:N2,H3:N3,H4:N4,H5:N5,H6:N6,H7:N7,H8:N8,H9:N9,H10:N10,H11:N11,H12:N12,H13:N13,H14:N14,H15:N15,H16:N16,H17:N17,H18:N18,H19:N19,H20:N20,H21:N21,H22:N22,H23:N23,H24:N24,H25:N25,H26:N26,H27:N27,H28:N28,H29:N29,H30:N30,H31:N31,H32:N32″).Copy
Application.DisplayAlerts = False
ActiveWorkbook.Close

ActiveSheet.Paste Destination:=Worksheets(“sheet1″).Range(“AY2:BE2″)

Workbooks.Open ThisWorkbook.Path & “\principal-comment-ss2-veritas-1st-term-2015-2016.xlsx”
Range(“H2,H3,H4,H5,H6,H7,H8,H9,H10,H11,H12,H13,H14,H15,H16,H17,H18,H19,H20,H21,H22,H23,H24,H25,H26,H27,H28,H29,H30,H31,H32″).Copy
Application.DisplayAlerts = False
ActiveWorkbook.Close

ActiveSheet.Paste Destination:=Worksheets(“sheet1″).Range(“HE2″)

Workbooks.Open ThisWorkbook.Path & “\technical-drawing-score-sheet-ss2-veritas-1st-term-2015-2016.xlsx”
Range(“H2:N2,H3:N3,H4:N4,H5:N5,H6:N6,H7:N7,H8:N8,H9:N9,H10:N10,H11:N11,H12:N12,H13:N13,H14:N14,H15:N15,H16:N16,H17:N17,H18:N18,H19:N19,H20:N20,H21:N21,H22:N22,H23:N23,H24:N24,H25:N25,H26:N26,H27:N27,H28:N28,H29:N29,H30:N30,H31:N31,H32:N32″).Copy
Application.DisplayAlerts = False
ActiveWorkbook.Close

ActiveSheet.Paste Destination:=Worksheets(“sheet1″).Range(“BT2:BZ2″)

Workbooks.Open ThisWorkbook.Path & “\trade-score-sheet-ss2-veritas-1st-term-2015-2016.xlsx”
Range(“H2:N2,H3:N3,H4:N4,H5:N5,H6:N6,H7:N7,H8:N8,H9:N9,H10:N10,H11:N11,H12:N12,H13:N13,H14:N14,H15:N15,H16:N16,H17:N17,H18:N18,H19:N19,H20:N20,H21:N21,H22:N22,H23:N23,H24:N24,H25:N25,H26:N26,H27:N27,H28:N28,H29:N29,H30:N30,H31:N31,H32:N32″).Copy
Application.DisplayAlerts = False
ActiveWorkbook.Close

ActiveSheet.Paste Destination:=Worksheets(“sheet1″).Range(“W2:AC2″)

Workbooks.Open ThisWorkbook.Path & “\yoruba-score-sheet-ss2-veritas-1st-term-2015-2016.xlsx”
Range(“H2:N2,H3:N3,H4:N4,H5:N5,H6:N6,H7:N7,H8:N8,H9:N9,H10:N10,H11:N11,H12:N12,H13:N13,H14:N14,H15:N15,H16:N16,H17:N17,H18:N18,H19:N19,H20:N20,H21:N21,H22:N22,H23:N23,H24:N24,H25:N25,H26:N26,H27:N27,H28:N28,H29:N29,H30:N30,H31:N31,H32:N32″).Copy
Application.DisplayAlerts = False
ActiveWorkbook.Close

ActiveSheet.Paste Destination:=Worksheets(“sheet1″).Range(“DC2:DI2″)

End Sub

BIOLOGY

Sub BiologyResultSheet()

Workbooks.Open ThisWorkbook.Path & “\biology-score-sheet-ss2-veritas-1st-term-2015-2016.xlsx”
Range(“H2:N2,H3:N3,H4:N4,H5:N5,H6:N6,H7:N7,H8:N8,H9:N9,H10:N10,H11:N11,H12:N12,H13:N13,H14:N14,H15:N15,H16:N16,H17:N17,H18:N18,H19:N19,H20:N20,H21:N21,H22:N22,H23:N23,H24:N24,H25:N25,H26:N26,H27:N27,H28:N28,H29:N29,H30:N30,H31:N31,H32:N32″).Copy
Application.DisplayAlerts = False
ActiveWorkbook.Close

ActiveSheet.Paste Destination:=Worksheets(“sheet1″).Range(“BF2:BL2″)

End Sub

CHEMISTRY

Sub ChemistryResultSheet()

Workbooks.Open ThisWorkbook.Path & “\chemistry-score-sheet-ss2-veritas-1st-term-2015-2016.xlsx”
Range(“H2:N2,H3:N3,H4:N4,H5:N5,H6:N6,H7:N7,H8:N8,H9:N9,H10:N10,H11:N11,H12:N12,H13:N13,H14:N14,H15:N15,H16:N16,H17:N17,H18:N18,H19:N19,H20:N20,H21:N21,H22:N22,H23:N23,H24:N24,H25:N25,H26:N26,H27:N27,H28:N28,H29:N29,H30:N30,H31:N31,H32:N32″).Copy
Application.DisplayAlerts = False
ActiveWorkbook.Close

ActiveSheet.Paste Destination:=Worksheets(“sheet1″).Range(“AR2:AX2″)

End Sub

CIVIC

Sub CivicResultSheet()

Workbooks.Open ThisWorkbook.Path & “\civic-score-sheet-ss2-veritas-1st-term-2015-2016.xlsx”
Range(“H2:N2,H3:N3,H4:N4,H5:N5,H6:N6,H7:N7,H8:N8,H9:N9,H10:N10,H11:N11,H12:N12,H13:N13,H14:N14,H15:N15,H16:N16,H17:N17,H18:N18,H19:N19,H20:N20,H21:N21,H22:N22,H23:N23,H24:N24,H25:N25,H26:N26,H27:N27,H28:N28,H29:N29,H30:N30,H31:N31,H32:N32″).Copy
Application.DisplayAlerts = False
ActiveWorkbook.Close

ActiveSheet.Paste Destination:=Worksheets(“sheet1″).Range(“AK2:AQ2″)

End Sub

COMMERCE

Sub CommerceResultSheet()

Workbooks.Open ThisWorkbook.Path & “\commerce-score-sheet-ss2-veritas-1st-term-2015-2016.xlsx”
Range(“H2:N2,H3:N3,H4:N4,H5:N5,H6:N6,H7:N7,H8:N8,H9:N9,H10:N10,H11:N11,H12:N12,H13:N13,H14:N14,H15:N15,H16:N16,H17:N17,H18:N18,H19:N19,H20:N20,H21:N21,H22:N22,H23:N23,H24:N24,H25:N25,H26:N26,H27:N27,H28:N28,H29:N29,H30:N30,H31:N31,H32:N32″).Copy
Application.DisplayAlerts = False
ActiveWorkbook.Close

ActiveSheet.Paste Destination:=Worksheets(“sheet1″).Range(“FU2:GA2″)

End Sub

CREATIVE ART

Sub CreativeArtResultSheet()

Workbooks.Open ThisWorkbook.Path & “\creative-art-score-sheet-ss2-veritas-1st-term-2015-2016.xlsx”
Range(“H2:N2,H3:N3,H4:N4,H5:N5,H6:N6,H7:N7,H8:N8,H9:N9,H10:N10,H11:N11,H12:N12,H13:N13,H14:N14,H15:N15,H16:N16,H17:N17,H18:N18,H19:N19,H20:N20,H21:N21,H22:N22,H23:N23,H24:N24,H25:N25,H26:N26,H27:N27,H28:N28,H29:N29,H30:N30,H31:N31,H32:N32″).Copy
Application.DisplayAlerts = False
ActiveWorkbook.Close

ActiveSheet.Paste Destination:=Worksheets(“sheet1″).Range(“ES2:EY2″)

End Sub

CRS

Sub CRSResultSheet()

Workbooks.Open ThisWorkbook.Path & “\crs-score-sheet-ss2-veritas-1st-term-2015-2016.xlsx”
Range(“H2:N2,H3:N3,H4:N4,H5:N5,H6:N6,H7:N7,H8:N8,H9:N9,H10:N10,H11:N11,H12:N12,H13:N13,H14:N14,H15:N15,H16:N16,H17:N17,H18:N18,H19:N19,H20:N20,H21:N21,H22:N22,H23:N23,H24:N24,H25:N25,H26:N26,H27:N27,H28:N28,H29:N29,H30:N30,H31:N31,H32:N32″).Copy
Application.DisplayAlerts = False
ActiveWorkbook.Close

ActiveSheet.Paste Destination:=Worksheets(“sheet1″).Range(“EL2:ER2″)

End Sub

ECONOMICS

Sub EconomicsResultSheet()

Workbooks.Open ThisWorkbook.Path & “\economics-score-sheet-ss2-veritas-1st-term-2015-2016.xlsx”
Range(“H2:N2,H3:N3,H4:N4,H5:N5,H6:N6,H7:N7,H8:N8,H9:N9,H10:N10,H11:N11,H12:N12,H13:N13,H14:N14,H15:N15,H16:N16,H17:N17,H18:N18,H19:N19,H20:N20,H21:N21,H22:N22,H23:N23,H24:N24,H25:N25,H26:N26,H27:N27,H28:N28,H29:N29,H30:N30,H31:N31,H32:N32″).Copy
Application.DisplayAlerts = False
ActiveWorkbook.Close

ActiveSheet.Paste Destination:=Worksheets(“sheet1″).Range(“EE2:EK2″)

End Sub

ENGLISH

Sub EnglishResultSheet()

Workbooks.Open ThisWorkbook.Path & “\english-score-sheet-ss2-veritas-1st-term-2015-2016.xlsx”
Range(“H2:N2,H3:N3,H4:N4,H5:N5,H6:N6,H7:N7,H8:N8,H9:N9,H10:N10,H11:N11,H12:N12,H13:N13,H14:N14,H15:N15,H16:N16,H17:N17,H18:N18,H19:N19,H20:N20,H21:N21,H22:N22,H23:N23,H24:N24,H25:N25,H26:N26,H27:N27,H28:N28,H29:N29,H30:N30,H31:N31,H32:N32″).Copy
Application.DisplayAlerts = False
ActiveWorkbook.Close

ActiveSheet.Paste Destination:=Worksheets(“sheet1″).Range(“I2:O2″)

End Sub

EXAMS AND RECORD

Sub ExamsRecordsResultSheet()

Workbooks.Open ThisWorkbook.Path & “\exams-and-records-sheet-ss2-veritas-1st-term-2015-2016.xlsx”
Range(“A2:H2,A3:H3,A4:H4,A5:H5,A6:H6,A7:H7,A8:H8,A9:H9,A10:H10,A11:H11,A12:H12,A13:H13,A14:H14,A15:H15,A16:H16,A17:H17,A18:H18,A19:H19,A20:H20,A21:H21,A22:H22,A23:H23,A24:H24,A25:H25,A26:H26,A27:H27,A28:H28,A29:H29,A30:H30,A31:H31,A32:H32″).Copy
Application.DisplayAlerts = False
ActiveWorkbook.Close

ActiveSheet.Paste Destination:=Worksheets(“sheet1″).Range(“A2:H2″)

End Sub

FINANCIAL ACCOUNTING

Sub FinancialAccountingResultSheet()

Workbooks.Open ThisWorkbook.Path & “\financial-accounting-score-sheet-ss2-veritas-1st-term-2015-2016.xlsx”
Range(“H2:N2,H3:N3,H4:N4,H5:N5,H6:N6,H7:N7,H8:N8,H9:N9,H10:N10,H11:N11,H12:N12,H13:N13,H14:N14,H15:N15,H16:N16,H17:N17,H18:N18,H19:N19,H20:N20,H21:N21,H22:N22,H23:N23,H24:N24,H25:N25,H26:N26,H27:N27,H28:N28,H29:N29,H30:N30,H31:N31,H32:N32″).Copy
Application.DisplayAlerts = False
ActiveWorkbook.Close

ActiveSheet.Paste Destination:=Worksheets(“sheet1″).Range(“FG2:FM2″)

End Sub

FOOD NUTRITION

Sub FoodNutritionResultSheet()

Workbooks.Open ThisWorkbook.Path & “\food-and-nutrition-score-sheet-ss2-veritas-1st-term-2015-2016.xlsx”
Range(“H2:N2,H3:N3,H4:N4,H5:N5,H6:N6,H7:N7,H8:N8,H9:N9,H10:N10,H11:N11,H12:N12,H13:N13,H14:N14,H15:N15,H16:N16,H17:N17,H18:N18,H19:N19,H20:N20,H21:N21,H22:N22,H23:N23,H24:N24,H25:N25,H26:N26,H27:N27,H28:N28,H29:N29,H30:N30,H31:N31,H32:N32″).Copy
Application.DisplayAlerts = False
ActiveWorkbook.Close

ActiveSheet.Paste Destination:=Worksheets(“sheet1″).Range(“CA2:CG2″)

End Sub

FORM TEACHER

Sub FormTeacherResultSheet()

Workbooks.Open ThisWorkbook.Path & “\form-teachers-sheet-ss2-veritas-1st-term-2015-2016.xlsx”
Range(“H2:AJ2,H3:AJ3,H4:AJ4,H5:AJ5,H6:AJ6,H7:AJ7,H9:AJ9,H10:AJ10,H11:AJ11,H12:AJ12,H13:AJ13,H14:AJ14,H15:AJ15,H16:AJ16,H17:AJ17,H18:AJ18,H19:AJ19,H20:AJ20,H21:AJ21,H22:AJ22,H23:AJ23,H24:AJ24,H25:AJ25,H26:AJ26,H27:AJ27,H28:AJ28,H29:AJ29,H30:AJ30,H31:AJ31,H32:AJ32″).Copy
Application.DisplayAlerts = False
ActiveWorkbook.Close

ActiveSheet.Paste Destination:=Worksheets(“sheet1″).Range(“GB2:HD2″)

End Sub

FRENCH

Sub FrenchResultSheet()

Workbooks.Open ThisWorkbook.Path & “\french-score-sheet-ss2-veritas-1st-term-2015-2016.xlsx”
Range(“H2:N2,H3:N3,H4:N4,H5:N5,H6:N6,H7:N7,H8:N8,H9:N9,H10:N10,H11:N11,H12:N12,H13:N13,H14:N14,H15:N15,H16:N16,H17:N17,H18:N18,H19:N19,H20:N20,H21:N21,H22:N22,H23:N23,H24:N24,H25:N25,H26:N26,H27:N27,H28:N28,H29:N29,H30:N30,H31:N31,H32:N32″).Copy
Application.DisplayAlerts = False
ActiveWorkbook.Close

ActiveSheet.Paste Destination:=Worksheets(“sheet1″).Range(“CV2:DB2″)

End Sub

FURTHER MATHS

Sub FurtherMathsResultSheet()

Workbooks.Open ThisWorkbook.Path & “\further-maths-score-sheet-ss2-veritas-1st-term-2015-2016.xlsx”
Range(“H2:N2,H3:N3,H4:N4,H5:N5,H6:N6,H7:N7,H8:N8,H9:N9,H10:N10,H11:N11,H12:N12,H13:N13,H14:N14,H15:N15,H16:N16,H17:N17,H18:N18,H19:N19,H20:N20,H21:N21,H22:N22,H23:N23,H24:N24,H25:N25,H26:N26,H27:N27,H28:N28,H29:N29,H30:N30,H31:N31,H32:N32″).Copy
Application.DisplayAlerts = False
ActiveWorkbook.Close

ActiveSheet.Paste Destination:=Worksheets(“sheet1″).Range(“BM2:BS2″)

End Sub

GEOGRAPHY

Sub GeographyResultSheet()

Workbooks.Open ThisWorkbook.Path & “\geography-score-sheet-ss2-veritas-1st-term-2015-2016.xlsx”
Range(“H2:N2,H3:N3,H4:N4,H5:N5,H6:N6,H7:N7,H8:N8,H9:N9,H10:N10,H11:N11,H12:N12,H13:N13,H14:N14,H15:N15,H16:N16,H17:N17,H18:N18,H19:N19,H20:N20,H21:N21,H22:N22,H23:N23,H24:N24,H25:N25,H26:N26,H27:N27,H28:N28,H29:N29,H30:N30,H31:N31,H32:N32″).Copy
Application.DisplayAlerts = False
ActiveWorkbook.Close

ActiveSheet.Paste Destination:=Worksheets(“sheet1″).Range(“DX2:ED2″)

End Sub

GOVERNMENT

Sub GovernmentResultSheet()

Workbooks.Open ThisWorkbook.Path & “\government-score-sheet-ss2-veritas-1st-term-2015-2016.xlsx”
Range(“H2:N2,H3:N3,H4:N4,H5:N5,H6:N6,H7:N7,H8:N8,H9:N9,H10:N10,H11:N11,H12:N12,H13:N13,H14:N14,H15:N15,H16:N16,H17:N17,H18:N18,H19:N19,H20:N20,H21:N21,H22:N22,H23:N23,H24:N24,H25:N25,H26:N26,H27:N27,H28:N28,H29:N29,H30:N30,H31:N31,H32:N32″).Copy
Application.DisplayAlerts = False
ActiveWorkbook.Close

ActiveSheet.Paste Destination:=Worksheets(“sheet1″).Range(“DQ2:DW2″)

End Sub

ICT

Sub ICTResultSheet()

Workbooks.Open ThisWorkbook.Path & “\ict-score-sheet-ss2-veritas-1st-term-2015-2016.xlsx”
Range(“H2:N2,H3:N3,H4:N4,H5:N5,H6:N6,H7:N7,H8:N8,H9:N9,H10:N10,H11:N11,H12:N12,H13:N13,H14:N14,H15:N15,H16:N16,H17:N17,H18:N18,H19:N19,H20:N20,H21:N21,H22:N22,H23:N23,H24:N24,H25:N25,H26:N26,H27:N27,H28:N28,H29:N29,H30:N30,H31:N31,H32:N32″).Copy
Application.DisplayAlerts = False
ActiveWorkbook.Close

ActiveSheet.Paste Destination:=Worksheets(“sheet1″).Range(“AD2:AJ2″)

End Sub

IGBO

Sub IgboResultSheet()

Workbooks.Open ThisWorkbook.Path & “\igbo-score-sheet-ss2-veritas-1st-term-2015-2016.xlsx”
Range(“H2:N2,H3:N3,H4:N4,H5:N5,H6:N6,H7:N7,H8:N8,H9:N9,H10:N10,H11:N11,H12:N12,H13:N13,H14:N14,H15:N15,H16:N16,H17:N17,H18:N18,H19:N19,H20:N20,H21:N21,H22:N22,H23:N23,H24:N24,H25:N25,H26:N26,H27:N27,H28:N28,H29:N29,H30:N30,H31:N31,H32:N32″).Copy
Application.DisplayAlerts = False
ActiveWorkbook.Close

ActiveSheet.Paste Destination:=Worksheets(“sheet1″).Range(“DJ2:DP2″)

End Sub

INSURANCE

Sub InsuranceResultSheet()

Workbooks.Open ThisWorkbook.Path & “\insurance-score-sheet-ss2-veritas-1st-term-2015-2016.xlsx”
Range(“H2:N2,H3:N3,H4:N4,H5:N5,H6:N6,H7:N7,H8:N8,H9:N9,H10:N10,H11:N11,H12:N12,H13:N13,H14:N14,H15:N15,H16:N16,H17:N17,H18:N18,H19:N19,H20:N20,H21:N21,H22:N22,H23:N23,H24:N24,H25:N25,H26:N26,H27:N27,H28:N28,H29:N29,H30:N30,H31:N31,H32:N32″).Copy
Application.DisplayAlerts = False
ActiveWorkbook.Close

ActiveSheet.Paste Destination:=Worksheets(“sheet1″).Range(“FN2:FT2″)

End Sub

LITERATURE

Sub LiteratureInEnglishResultSheet()

Workbooks.Open ThisWorkbook.Path & “\literature-in-english-score-sheet-ss2-veritas-1st-term-2015-2016.xlsx”
Range(“H2:N2,H3:N3,H4:N4,H5:N5,H6:N6,H7:N7,H8:N8,H9:N9,H10:N10,H11:N11,H12:N12,H13:N13,H14:N14,H15:N15,H16:N16,H17:N17,H18:N18,H19:N19,H20:N20,H21:N21,H22:N22,H23:N23,H24:N24,H25:N25,H26:N26,H27:N27,H28:N28,H29:N29,H30:N30,H31:N31,H32:N32″).Copy
Application.DisplayAlerts = False
ActiveWorkbook.Close

ActiveSheet.Paste Destination:=Worksheets(“sheet1″).Range(“CO2:CU2″)

End Sub

MATHS

Sub MathsResultSheet()

Workbooks.Open ThisWorkbook.Path & “\maths-score-sheet-ss2-veritas-1st-term-2015-2016.xlsx”
Range(“H2:N2,H3:N3,H4:N4,H5:N5,H6:N6,H7:N7,H8:N8,H9:N9,H10:N10,H11:N11,H12:N12,H13:N13,H14:N14,H15:N15,H16:N16,H17:N17,H18:N18,H19:N19,H20:N20,H21:N21,H22:N22,H23:N23,H24:N24,H25:N25,H26:N26,H27:N27,H28:N28,H29:N29,H30:N30,H31:N31,H32:N32″).Copy
Application.DisplayAlerts = False
ActiveWorkbook.Close

ActiveSheet.Paste Destination:=Worksheets(“sheet1″).Range(“P2:V2″)

End Sub

MUSIC

Sub MusicResultSheet()

Workbooks.Open ThisWorkbook.Path & “\music-score-sheet-ss2-veritas-1st-term-2015-2016.xlsx”
Range(“H2:N2,H3:N3,H4:N4,H5:N5,H6:N6,H7:N7,H8:N8,H9:N9,H10:N10,H11:N11,H12:N12,H13:N13,H14:N14,H15:N15,H16:N16,H17:N17,H18:N18,H19:N19,H20:N20,H21:N21,H22:N22,H23:N23,H24:N24,H25:N25,H26:N26,H27:N27,H28:N28,H29:N29,H30:N30,H31:N31,H32:N32″).Copy
Application.DisplayAlerts = False
ActiveWorkbook.Close

ActiveSheet.Paste Destination:=Worksheets(“sheet1″).Range(“EZ2:FF2″)

End Sub

PHYSICS

Sub PhysicsResultSheet()

Workbooks.Open ThisWorkbook.Path & “\physics-score-sheet-ss2-veritas-1st-term-2015-2016.xlsx”
Range(“H2:N2,H3:N3,H4:N4,H5:N5,H6:N6,H7:N7,H8:N8,H9:N9,H10:N10,H11:N11,H12:N12,H13:N13,H14:N14,H15:N15,H16:N16,H17:N17,H18:N18,H19:N19,H20:N20,H21:N21,H22:N22,H23:N23,H24:N24,H25:N25,H26:N26,H27:N27,H28:N28,H29:N29,H30:N30,H31:N31,H32:N32″).Copy
Application.DisplayAlerts = False
ActiveWorkbook.Close

ActiveSheet.Paste Destination:=Worksheets(“sheet1″).Range(“AY2:BE2″)

End Sub

PRINCIPALS COMMENT

Sub PrincipalCommentResultSheet()

Workbooks.Open ThisWorkbook.Path & “\principal-comment-ss2-veritas-1st-term-2015-2016.xlsx”
Range(“H2,H3,H4,H5,H6,H7,H8,H9,H10,H11,H12,H13,H14,H15,H16,H17,H18,H19,H20,H21,H22,H23,H24,H25,H26,H27,H28,H29,H30,H31,H32″).Copy
Application.DisplayAlerts = False
ActiveWorkbook.Close

ActiveSheet.Paste Destination:=Worksheets(“sheet1″).Range(“HE2″)

End Sub

TECHNICAL DRAWING

Sub TechnicalDrawingResultSheet()

Workbooks.Open ThisWorkbook.Path & “\technical-drawing-score-sheet-ss2-veritas-1st-term-2015-2016.xlsx”
Range(“H2:N2,H3:N3,H4:N4,H5:N5,H6:N6,H7:N7,H8:N8,H9:N9,H10:N10,H11:N11,H12:N12,H13:N13,H14:N14,H15:N15,H16:N16,H17:N17,H18:N18,H19:N19,H20:N20,H21:N21,H22:N22,H23:N23,H24:N24,H25:N25,H26:N26,H27:N27,H28:N28,H29:N29,H30:N30,H31:N31,H32:N32″).Copy
Application.DisplayAlerts = False
ActiveWorkbook.Close

ActiveSheet.Paste Destination:=Worksheets(“sheet1″).Range(“BT2:BZ2″)

End Sub

TRADE

Sub TradeResultSheet()

Workbooks.Open ThisWorkbook.Path & “\trade-score-sheet-ss2-veritas-1st-term-2015-2016.xlsx”
Range(“H2:N2,H3:N3,H4:N4,H5:N5,H6:N6,H7:N7,H8:N8,H9:N9,H10:N10,H11:N11,H12:N12,H13:N13,H14:N14,H15:N15,H16:N16,H17:N17,H18:N18,H19:N19,H20:N20,H21:N21,H22:N22,H23:N23,H24:N24,H25:N25,H26:N26,H27:N27,H28:N28,H29:N29,H30:N30,H31:N31,H32:N32″).Copy
Application.DisplayAlerts = False
ActiveWorkbook.Close

ActiveSheet.Paste Destination:=Worksheets(“sheet1″).Range(“W2:AC2″)

End Sub

YORUBA

Sub YorubaResultSheet()

Workbooks.Open ThisWorkbook.Path & “\yoruba-score-sheet-ss2-veritas-1st-term-2015-2016.xlsx”
Range(“H2:N2,H3:N3,H4:N4,H5:N5,H6:N6,H7:N7,H8:N8,H9:N9,H10:N10,H11:N11,H12:N12,H13:N13,H14:N14,H15:N15,H16:N16,H17:N17,H18:N18,H19:N19,H20:N20,H21:N21,H22:N22,H23:N23,H24:N24,H25:N25,H26:N26,H27:N27,H28:N28,H29:N29,H30:N30,H31:N31,H32:N32″).Copy
Application.DisplayAlerts = False
ActiveWorkbook.Close

ActiveSheet.Paste Destination:=Worksheets(“sheet1″).Range(“DC2:DI2″)

End Sub

Leave a Reply