'===================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 ()
call drawstar ()
End Sub

Sub absmain ()
'Do not edit this macro, changes will not be saved with the workbook!!!
End Sub

Sub drawstar ()
for x = 0 to 500 step 50
 for y = 0 to 500 step 50
 ActiveSheet.Shapes.AddLine(x, y,500-x,500-y)
 next y
next x
end sub