'===================ABV PROJECT====================== '===================MODULE 1 ======================= Sub main () 'you can edit this macro to execute any command when loading this workbook 'next line call the routine that fill the sheet call absmain () End Sub Sub absmain () 'Do not edit this macro, changes will not be saved with the workbook!!! Worksheets(1).Activate Cells(1,1).Formula="=1.000000" Cells(1,1).Interior.ColorIndex = 1 Cells(1,2).Formula="=2.000000" Cells(1,2).Interior.ColorIndex = 2 Cells(1,3).Formula="=3.000000" Cells(1,3).Interior.ColorIndex = 3 Cells(1,4).Formula="=4.000000" Cells(1,4).Interior.ColorIndex = 4 Cells(1,5).Formula="=5.000000" Cells(1,5).Interior.ColorIndex = 5 Cells(1,6).Formula="=6.000000" Cells(1,6).Interior.ColorIndex = 6 Cells(1,7).Formula="=7.000000" Cells(1,7).Interior.ColorIndex = 7 Cells(1,8).Formula="=8.000000" Cells(1,8).Interior.ColorIndex = 8 Cells(2,1).Formula="=9.000000" Cells(2,1).Interior.ColorIndex = 9 Cells(2,2).Formula="=10.000000" Cells(2,2).Interior.ColorIndex = 10 Cells(2,3).Formula="=11.000000" Cells(2,3).Interior.ColorIndex = 11 Cells(2,4).Formula="=12.000000" Cells(2,4).Interior.ColorIndex = 12 Cells(2,5).Formula="=13.000000" Cells(2,5).Interior.ColorIndex = 13 Cells(2,6).Formula="=14.000000" Cells(2,6).Interior.ColorIndex = 14 Cells(2,7).Formula="=15.000000" Cells(2,7).Interior.ColorIndex = 15 Cells(2,8).Formula="=16.000000" Cells(2,8).Interior.ColorIndex = 16 Cells(3,1).Formula="=17.000000" Cells(3,1).Interior.ColorIndex = 17 Cells(3,2).Formula="=18.000000" Cells(3,2).Interior.ColorIndex = 18 Cells(3,3).Formula="=19.000000" Cells(3,3).Interior.ColorIndex = 19 Cells(3,4).Formula="=20.000000" Cells(3,4).Interior.ColorIndex = 20 Cells(3,5).Formula="=21.000000" Cells(3,5).Interior.ColorIndex = 21 Cells(3,6).Formula="=22.000000" Cells(3,6).Interior.ColorIndex = 22 Cells(3,7).Formula="=23.000000" Cells(3,7).Interior.ColorIndex = 23 Cells(3,8).Formula="=24.000000" Cells(3,8).Interior.ColorIndex = 24 Cells(4,1).Formula="=25.000000" Cells(4,1).Interior.ColorIndex = 25 Cells(4,2).Formula="=26.000000" Cells(4,2).Interior.ColorIndex = 26 Cells(4,3).Formula="=27.000000" Cells(4,3).Interior.ColorIndex = 27 Cells(4,4).Formula="=28.000000" Cells(4,4).Interior.ColorIndex = 28 Cells(4,5).Formula="=29.000000" Cells(4,5).Interior.ColorIndex = 29 Cells(4,6).Formula="=30.000000" Cells(4,6).Interior.ColorIndex = 30 Cells(4,7).Formula="=31.000000" Cells(4,7).Interior.ColorIndex = 31 Cells(4,8).Formula="=32.000000" Cells(4,8).Interior.ColorIndex = 32 Cells(5,1).Formula="=33.000000" Cells(5,1).Interior.ColorIndex = 33 Cells(5,2).Formula="=34.000000" Cells(5,2).Interior.ColorIndex = 34 Cells(5,3).Formula="=35.000000" Cells(5,3).Interior.ColorIndex = 35 Cells(5,4).Formula="=36.000000" Cells(5,4).Interior.ColorIndex = 36 Cells(5,5).Formula="=37.000000" Cells(5,5).Interior.ColorIndex = 37 Cells(5,6).Formula="=38.000000" Cells(5,6).Interior.ColorIndex = 38 Cells(5,7).Formula="=39.000000" Cells(5,7).Interior.ColorIndex = 39 Cells(5,8).Formula="=40.000000" Cells(6,1).Formula="=1.000000" Cells(6,2).Formula="=2.000000" Cells(6,2).Font.ColorIndex = 2 Cells(6,3).Formula="=3.000000" Cells(6,3).Font.ColorIndex = 3 Cells(6,4).Formula="=4.000000" Cells(6,4).Font.ColorIndex = 4 Cells(6,5).Formula="=5.000000" Cells(6,5).Font.ColorIndex = 5 Cells(6,6).Formula="=6.000000" Cells(6,6).Font.ColorIndex = 6 Cells(6,7).Formula="=7.000000" Cells(6,7).Font.ColorIndex = 7 Cells(6,8).Formula="=8.000000" Cells(6,8).Font.ColorIndex = 8 Cells(7,1).Formula="=9.000000" Cells(7,1).Font.ColorIndex = 9 Cells(7,2).Formula="=10.000000" Cells(7,2).Font.ColorIndex = 10 Cells(7,3).Formula="=11.000000" Cells(7,3).Font.ColorIndex = 11 Cells(7,4).Formula="=12.000000" Cells(7,4).Font.ColorIndex = 12 Cells(7,5).Formula="=13.000000" Cells(7,5).Font.ColorIndex = 13 Cells(7,6).Formula="=14.000000" Cells(7,6).Font.ColorIndex = 14 Cells(7,7).Formula="=15.000000" Cells(7,7).Font.ColorIndex = 15 Cells(7,8).Formula="=16.000000" Cells(7,8).Font.ColorIndex = 16 Cells(8,1).Formula="=17.000000" Cells(8,1).Font.ColorIndex = 17 Cells(8,2).Formula="=18.000000" Cells(8,2).Font.ColorIndex = 18 Cells(8,3).Formula="=19.000000" Cells(8,3).Font.ColorIndex = 19 Cells(8,4).Formula="=20.000000" Cells(8,4).Font.ColorIndex = 20 Cells(8,5).Formula="=21.000000" Cells(8,5).Font.ColorIndex = 21 Cells(8,6).Formula="=22.000000" Cells(8,6).Font.ColorIndex = 22 Cells(8,7).Formula="=23.000000" Cells(8,7).Font.ColorIndex = 23 Cells(8,8).Formula="=24.000000" Cells(8,8).Font.ColorIndex = 24 Cells(9,1).Formula="=25.000000" Cells(9,1).Font.ColorIndex = 25 Cells(9,2).Formula="=26.000000" Cells(9,2).Font.ColorIndex = 26 Cells(9,3).Formula="=27.000000" Cells(9,3).Font.ColorIndex = 27 Cells(9,4).Formula="=28.000000" Cells(9,4).Font.ColorIndex = 28 Cells(9,5).Formula="=29.000000" Cells(9,5).Font.ColorIndex = 29 Cells(9,6).Formula="=30.000000" Cells(9,6).Font.ColorIndex = 30 Cells(9,7).Formula="=31.000000" Cells(9,7).Font.ColorIndex = 31 Cells(9,8).Formula="=32.000000" Cells(9,8).Font.ColorIndex = 32 Cells(10,1).Formula="=33.000000" Cells(10,1).Font.ColorIndex = 33 Cells(10,2).Formula="=34.000000" Cells(10,2).Font.ColorIndex = 34 Cells(10,3).Formula="=35.000000" Cells(10,3).Font.ColorIndex = 35 Cells(10,4).Formula="=36.000000" Cells(10,4).Font.ColorIndex = 36 Cells(10,5).Formula="=37.000000" Cells(10,5).Font.ColorIndex = 37 Cells(10,6).Formula="=38.000000" Cells(10,6).Font.ColorIndex = 38 Cells(10,7).Formula="=39.000000" Cells(10,7).Font.ColorIndex = 39 Cells(10,8).Formula="=40.000000" Cells(10,8).Font.ColorIndex = 40 End Sub