'===================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
Columns("A").ColumnWidth = 27.714286
Columns("B").ColumnWidth = 27.714286
Columns("C").ColumnWidth = 27.714286
Columns("D").ColumnWidth = 27.714286
Rows("8").RowHeight = 36
Cells(2,1).Formula="'fixed 6"
Cells(2,1).Font.Name = "Fixed"
Cells(2,1).Font.Size = 6
Cells(2,1).HorizontalAlignment = xlCenter
Cells(2,2).Formula="'fixed 6"
Cells(2,2).Font.Name = "Fixed"
Cells(2,2).Font.Size = 6
Cells(2,2).Font.Bold = True 
Cells(2,2).HorizontalAlignment = xlCenter
Cells(2,3).Formula="'fixed 6"
Cells(2,3).Font.Name = "Fixed"
Cells(2,3).Font.Size = 6
Cells(2,3).Font.Italic = True 
Cells(2,3).HorizontalAlignment = xlCenter
Cells(2,4).Formula="'fixed 6"
Cells(2,4).Font.Name = "Fixed"
Cells(2,4).Font.Size = 6
Cells(2,4).Font.Bold = True 
Cells(2,4).Font.Italic = True 
Cells(2,4).HorizontalAlignment = xlCenter
Cells(3,1).Formula="'fixed 8"
Cells(3,1).Font.Name = "Fixed"
Cells(3,1).Font.Size = 8
Cells(3,1).HorizontalAlignment = xlCenter
Cells(3,2).Formula="'fixed 8"
Cells(3,2).Font.Name = "Fixed"
Cells(3,2).Font.Size = 8
Cells(3,2).Font.Bold = True 
Cells(3,2).HorizontalAlignment = xlCenter
Cells(3,3).Formula="'fixed 8"
Cells(3,3).Font.Name = "Fixed"
Cells(3,3).Font.Size = 8
Cells(3,3).Font.Italic = True 
Cells(3,3).HorizontalAlignment = xlCenter
Cells(3,4).Formula="'fixed 8"
Cells(3,4).Font.Name = "Fixed"
Cells(3,4).Font.Size = 8
Cells(3,4).Font.Bold = True 
Cells(3,4).Font.Italic = True 
Cells(3,4).HorizontalAlignment = xlCenter
Cells(4,1).Formula="'fixed 10"
Cells(4,1).Font.Name = "Fixed"
Cells(4,1).HorizontalAlignment = xlCenter
Cells(4,2).Formula="'fixed 10"
Cells(4,2).Font.Name = "Fixed"
Cells(4,2).Font.Bold = True 
Cells(4,2).HorizontalAlignment = xlCenter
Cells(4,3).Formula="'fixed 10"
Cells(4,3).Font.Name = "Fixed"
Cells(4,3).Font.Italic = True 
Cells(4,3).HorizontalAlignment = xlCenter
Cells(4,4).Formula="'fixed 10"
Cells(4,4).Font.Name = "Fixed"
Cells(4,4).Font.Bold = True 
Cells(4,4).Font.Italic = True 
Cells(4,4).HorizontalAlignment = xlCenter
Cells(5,1).Formula="'fixed 12"
Cells(5,1).Font.Name = "Fixed"
Cells(5,1).Font.Size = 12
Cells(5,1).HorizontalAlignment = xlCenter
Cells(5,2).Formula="'fixed 12"
Cells(5,2).Font.Name = "Fixed"
Cells(5,2).Font.Size = 12
Cells(5,2).Font.Bold = True 
Cells(5,2).HorizontalAlignment = xlCenter
Cells(5,3).Formula="'fixed 12"
Cells(5,3).Font.Name = "Fixed"
Cells(5,3).Font.Size = 12
Cells(5,3).Font.Italic = True 
Cells(5,3).HorizontalAlignment = xlCenter
Cells(5,4).Formula="'fixed 12"
Cells(5,4).Font.Name = "Fixed"
Cells(5,4).Font.Size = 12
Cells(5,4).Font.Bold = True 
Cells(5,4).Font.Italic = True 
Cells(5,4).HorizontalAlignment = xlCenter
Cells(6,1).Formula="'fixed 14"
Cells(6,1).Font.Name = "Fixed"
Cells(6,1).Font.Size = 14
Cells(6,1).HorizontalAlignment = xlCenter
Cells(6,2).Formula="'fixed 14"
Cells(6,2).Font.Name = "Fixed"
Cells(6,2).Font.Size = 14
Cells(6,2).Font.Bold = True 
Cells(6,2).HorizontalAlignment = xlCenter
Cells(6,3).Formula="'fixed 14"
Cells(6,3).Font.Name = "Fixed"
Cells(6,3).Font.Size = 14
Cells(6,3).Font.Italic = True 
Cells(6,3).HorizontalAlignment = xlCenter
Cells(6,4).Formula="'fixed 14"
Cells(6,4).Font.Name = "Fixed"
Cells(6,4).Font.Size = 14
Cells(6,4).Font.Bold = True 
Cells(6,4).Font.Italic = True 
Cells(6,4).HorizontalAlignment = xlCenter
Cells(7,1).Formula="'fixed 18"
Cells(7,1).Font.Name = "Fixed"
Cells(7,1).Font.Size = 18
Cells(7,1).HorizontalAlignment = xlCenter
Cells(7,2).Formula="'fixed 18"
Cells(7,2).Font.Name = "Fixed"
Cells(7,2).Font.Size = 18
Cells(7,2).Font.Bold = True 
Cells(7,2).HorizontalAlignment = xlCenter
Cells(7,3).Formula="'fixed 18"
Cells(7,3).Font.Name = "Fixed"
Cells(7,3).Font.Size = 18
Cells(7,3).Font.Italic = True 
Cells(7,3).HorizontalAlignment = xlCenter
Cells(7,4).Formula="'fixed 18"
Cells(7,4).Font.Name = "Fixed"
Cells(7,4).Font.Size = 18
Cells(7,4).Font.Bold = True 
Cells(7,4).Font.Italic = True 
Cells(7,4).HorizontalAlignment = xlCenter
Cells(8,1).Formula="'fixed 24"
Cells(8,1).Font.Name = "Fixed"
Cells(8,1).Font.Size = 24
Cells(8,1).HorizontalAlignment = xlCenter
Cells(8,2).Formula="'fixed 24"
Cells(8,2).Font.Name = "Fixed"
Cells(8,2).Font.Size = 24
Cells(8,2).Font.Bold = True 
Cells(8,2).HorizontalAlignment = xlCenter
Cells(8,3).Formula="'fixed 24"
Cells(8,3).Font.Name = "Fixed"
Cells(8,3).Font.Size = 24
Cells(8,3).Font.Italic = True 
Cells(8,3).HorizontalAlignment = xlCenter
Cells(8,4).Formula="'fixed 24"
Cells(8,4).Font.Name = "Fixed"
Cells(8,4).Font.Size = 24
Cells(8,4).Font.Bold = True 
Cells(8,4).Font.Italic = True 
Cells(8,4).HorizontalAlignment = xlCenter
Worksheets(2).Activate
Columns("A").ColumnWidth = 21.714286
Columns("B").ColumnWidth = 21.714286
Columns("C").ColumnWidth = 21.714286
Columns("D").ColumnWidth = 21.714286
Cells(2,1).Formula="'Courier 6"
Cells(2,1).Font.Name = "Courier"
Cells(2,1).Font.Size = 6
Cells(2,1).HorizontalAlignment = xlCenter
Cells(2,2).Formula="'Courier 6"
Cells(2,2).Font.Name = "Courier"
Cells(2,2).Font.Size = 6
Cells(2,2).Font.Bold = True 
Cells(2,2).HorizontalAlignment = xlCenter
Cells(2,3).Formula="'Courier 6"
Cells(2,3).Font.Name = "Courier"
Cells(2,3).Font.Size = 6
Cells(2,3).Font.Italic = True 
Cells(2,3).HorizontalAlignment = xlCenter
Cells(2,4).Formula="'Courier 6"
Cells(2,4).Font.Name = "Courier"
Cells(2,4).Font.Size = 6
Cells(2,4).Font.Bold = True 
Cells(2,4).Font.Italic = True 
Cells(2,4).HorizontalAlignment = xlCenter
Cells(3,1).Formula="'Courier 8"
Cells(3,1).Font.Name = "Courier"
Cells(3,1).Font.Size = 8
Cells(3,1).HorizontalAlignment = xlCenter
Cells(3,2).Formula="'Courier 8"
Cells(3,2).Font.Name = "Courier"
Cells(3,2).Font.Size = 8
Cells(3,2).Font.Bold = True 
Cells(3,2).HorizontalAlignment = xlCenter
Cells(3,3).Formula="'Courier 8"
Cells(3,3).Font.Name = "Courier"
Cells(3,3).Font.Size = 8
Cells(3,3).Font.Italic = True 
Cells(3,3).HorizontalAlignment = xlCenter
Cells(3,4).Formula="'Courier 8"
Cells(3,4).Font.Name = "Courier"
Cells(3,4).Font.Size = 8
Cells(3,4).Font.Bold = True 
Cells(3,4).Font.Italic = True 
Cells(3,4).HorizontalAlignment = xlCenter
Cells(4,1).Formula="'Courier 10"
Cells(4,1).Font.Name = "Courier"
Cells(4,1).HorizontalAlignment = xlCenter
Cells(4,2).Formula="'Courier 10"
Cells(4,2).Font.Name = "Courier"
Cells(4,2).Font.Bold = True 
Cells(4,2).HorizontalAlignment = xlCenter
Cells(4,3).Formula="'Courier 10"
Cells(4,3).Font.Name = "Courier"
Cells(4,3).Font.Italic = True 
Cells(4,3).HorizontalAlignment = xlCenter
Cells(4,4).Formula="'Courier 10"
Cells(4,4).Font.Name = "Courier"
Cells(4,4).Font.Bold = True 
Cells(4,4).Font.Italic = True 
Cells(4,4).HorizontalAlignment = xlCenter
Cells(5,1).Formula="'Courier 12"
Cells(5,1).Font.Name = "Courier"
Cells(5,1).Font.Size = 12
Cells(5,1).HorizontalAlignment = xlCenter
Cells(5,2).Formula="'Courier 12"
Cells(5,2).Font.Name = "Courier"
Cells(5,2).Font.Size = 12
Cells(5,2).Font.Bold = True 
Cells(5,2).HorizontalAlignment = xlCenter
Cells(5,3).Formula="'Courier 12"
Cells(5,3).Font.Name = "Courier"
Cells(5,3).Font.Size = 12
Cells(5,3).Font.Italic = True 
Cells(5,3).HorizontalAlignment = xlCenter
Cells(5,4).Formula="'Courier 12"
Cells(5,4).Font.Name = "Courier"
Cells(5,4).Font.Size = 12
Cells(5,4).Font.Bold = True 
Cells(5,4).Font.Italic = True 
Cells(5,4).HorizontalAlignment = xlCenter
Cells(6,1).Formula="'Courier 14"
Cells(6,1).Font.Name = "Courier"
Cells(6,1).Font.Size = 14
Cells(6,1).HorizontalAlignment = xlCenter
Cells(6,2).Formula="'Courier 14"
Cells(6,2).Font.Name = "Courier"
Cells(6,2).Font.Size = 14
Cells(6,2).Font.Bold = True 
Cells(6,2).HorizontalAlignment = xlCenter
Cells(6,3).Formula="'Courier 14"
Cells(6,3).Font.Name = "Courier"
Cells(6,3).Font.Size = 14
Cells(6,3).Font.Italic = True 
Cells(6,3).HorizontalAlignment = xlCenter
Cells(6,4).Formula="'Courier 14"
Cells(6,4).Font.Name = "Courier"
Cells(6,4).Font.Size = 14
Cells(6,4).Font.Bold = True 
Cells(6,4).Font.Italic = True 
Cells(6,4).HorizontalAlignment = xlCenter
Cells(7,1).Formula="'Courier 18"
Cells(7,1).Font.Name = "Courier"
Cells(7,1).Font.Size = 18
Cells(7,1).HorizontalAlignment = xlCenter
Cells(7,2).Formula="'Courier 18"
Cells(7,2).Font.Name = "Courier"
Cells(7,2).Font.Size = 18
Cells(7,2).Font.Bold = True 
Cells(7,2).HorizontalAlignment = xlCenter
Cells(7,3).Formula="'Courier 18"
Cells(7,3).Font.Name = "Courier"
Cells(7,3).Font.Size = 18
Cells(7,3).Font.Italic = True 
Cells(7,3).HorizontalAlignment = xlCenter
Cells(7,4).Formula="'Courier 18"
Cells(7,4).Font.Name = "Courier"
Cells(7,4).Font.Size = 18
Cells(7,4).Font.Bold = True 
Cells(7,4).Font.Italic = True 
Cells(7,4).HorizontalAlignment = xlCenter
Cells(8,1).Formula="'Courier 24"
Cells(8,1).Font.Name = "Courier"
Cells(8,1).Font.Size = 24
Cells(8,1).HorizontalAlignment = xlCenter
Cells(8,2).Formula="'Courier 24"
Cells(8,2).Font.Name = "Courier"
Cells(8,2).Font.Size = 24
Cells(8,2).Font.Bold = True 
Cells(8,2).HorizontalAlignment = xlCenter
Cells(8,3).Formula="'Courier 24"
Cells(8,3).Font.Name = "Courier"
Cells(8,3).Font.Size = 24
Cells(8,3).Font.Italic = True 
Cells(8,3).HorizontalAlignment = xlCenter
Cells(8,4).Formula="'Courier 24"
Cells(8,4).Font.Name = "Courier"
Cells(8,4).Font.Size = 24
Cells(8,4).Font.Bold = True 
Cells(8,4).Font.Italic = True 
Cells(8,4).HorizontalAlignment = xlCenter
Worksheets(3).Activate
Columns("A").ColumnWidth = 8.000000
Columns("B").ColumnWidth = 21.714286
Columns("C").ColumnWidth = 26.000000
Columns("D").ColumnWidth = 23.142857
Columns("E").ColumnWidth = 22.428571
Rows("8").RowHeight = 21
Cells(2,2).Formula="'Helvetica 6"
Cells(2,2).Font.Size = 6
Cells(2,2).HorizontalAlignment = xlCenter
Cells(2,3).Formula="'Helvetica 6"
Cells(2,3).Font.Size = 6
Cells(2,3).Font.Bold = True 
Cells(2,3).HorizontalAlignment = xlCenter
Cells(2,4).Formula="'Helvetica 6"
Cells(2,4).Font.Size = 6
Cells(2,4).Font.Italic = True 
Cells(2,4).HorizontalAlignment = xlCenter
Cells(2,5).Formula="'Helvetica 6"
Cells(2,5).Font.Size = 6
Cells(2,5).Font.Bold = True 
Cells(2,5).Font.Italic = True 
Cells(2,5).HorizontalAlignment = xlCenter
Cells(3,2).Formula="'Helvetica 8"
Cells(3,2).Font.Size = 8
Cells(3,2).HorizontalAlignment = xlCenter
Cells(3,3).Formula="'Helvetica 8"
Cells(3,3).Font.Size = 8
Cells(3,3).Font.Bold = True 
Cells(3,3).HorizontalAlignment = xlCenter
Cells(3,4).Formula="'Helvetica 8"
Cells(3,4).Font.Size = 8
Cells(3,4).Font.Italic = True 
Cells(3,4).HorizontalAlignment = xlCenter
Cells(3,5).Formula="'Helvetica 8"
Cells(3,5).Font.Size = 8
Cells(3,5).Font.Bold = True 
Cells(3,5).Font.Italic = True 
Cells(3,5).HorizontalAlignment = xlCenter
Cells(4,2).Formula="'Helvetica 10"
Cells(4,2).HorizontalAlignment = xlCenter
Cells(4,3).Formula="'Helvetica 10"
Cells(4,3).Font.Bold = True 
Cells(4,3).HorizontalAlignment = xlCenter
Cells(4,4).Formula="'Helvetica 10"
Cells(4,4).Font.Italic = True 
Cells(4,4).HorizontalAlignment = xlCenter
Cells(4,5).Formula="'Helvetica 10"
Cells(4,5).Font.Bold = True 
Cells(4,5).Font.Italic = True 
Cells(4,5).HorizontalAlignment = xlCenter
Cells(5,2).Formula="'Helvetica 12"
Cells(5,2).Font.Size = 12
Cells(5,2).HorizontalAlignment = xlCenter
Cells(5,3).Formula="'Helvetica 12"
Cells(5,3).Font.Size = 12
Cells(5,3).Font.Bold = True 
Cells(5,3).HorizontalAlignment = xlCenter
Cells(5,4).Formula="'Helvetica 12"
Cells(5,4).Font.Size = 12
Cells(5,4).Font.Italic = True 
Cells(5,4).HorizontalAlignment = xlCenter
Cells(5,5).Formula="'Helvetica 12"
Cells(5,5).Font.Size = 12
Cells(5,5).Font.Bold = True 
Cells(5,5).Font.Italic = True 
Cells(5,5).HorizontalAlignment = xlCenter
Cells(6,2).Formula="'Helvetica 14"
Cells(6,2).Font.Size = 14
Cells(6,2).HorizontalAlignment = xlCenter
Cells(6,3).Formula="'Helvetica 14"
Cells(6,3).Font.Size = 14
Cells(6,3).Font.Bold = True 
Cells(6,3).HorizontalAlignment = xlCenter
Cells(6,4).Formula="'Helvetica 14"
Cells(6,4).Font.Size = 14
Cells(6,4).Font.Italic = True 
Cells(6,4).HorizontalAlignment = xlCenter
Cells(6,5).Formula="'Helvetica 14"
Cells(6,5).Font.Size = 14
Cells(6,5).Font.Bold = True 
Cells(6,5).Font.Italic = True 
Cells(6,5).HorizontalAlignment = xlCenter
Cells(7,2).Formula="'Helvetica 18"
Cells(7,2).Font.Size = 18
Cells(7,2).HorizontalAlignment = xlCenter
Cells(7,3).Formula="'Helvetica 18"
Cells(7,3).Font.Size = 18
Cells(7,3).Font.Bold = True 
Cells(7,3).HorizontalAlignment = xlCenter
Cells(7,4).Formula="'Helvetica 18"
Cells(7,4).Font.Size = 18
Cells(7,4).Font.Italic = True 
Cells(7,4).HorizontalAlignment = xlCenter
Cells(7,5).Formula="'Helvetica 18"
Cells(7,5).Font.Size = 18
Cells(7,5).Font.Bold = True 
Cells(7,5).Font.Italic = True 
Cells(7,5).HorizontalAlignment = xlCenter
Cells(8,2).Formula="'Helvetica 24"
Cells(8,2).Font.Size = 24
Cells(8,2).HorizontalAlignment = xlCenter
Cells(8,3).Formula="'Helvetica 24"
Cells(8,3).Font.Size = 24
Cells(8,3).Font.Bold = True 
Cells(8,3).HorizontalAlignment = xlCenter
Cells(8,4).Formula="'Helvetica 24"
Cells(8,4).Font.Size = 24
Cells(8,4).Font.Italic = True 
Cells(8,4).HorizontalAlignment = xlCenter
Cells(8,5).Formula="'Helvetica 24"
Cells(8,5).Font.Size = 24
Cells(8,5).Font.Bold = True 
Cells(8,5).Font.Italic = True 
Cells(8,5).HorizontalAlignment = xlCenter
Worksheets.Add
Columns("A").ColumnWidth = 13.571429
Columns("B").ColumnWidth = 13.857143
Columns("C").ColumnWidth = 13.142857
Columns("D").ColumnWidth = 13.428571
Cells(2,1).Formula="'Times 6"
Cells(2,1).Font.Name = "Times"
Cells(2,1).Font.Size = 6
Cells(2,1).HorizontalAlignment = xlCenter
Cells(2,2).Formula="'Times 6"
Cells(2,2).Font.Name = "Times"
Cells(2,2).Font.Size = 6
Cells(2,2).Font.Bold = True 
Cells(2,2).HorizontalAlignment = xlCenter
Cells(2,3).Formula="'Times 6"
Cells(2,3).Font.Name = "Times"
Cells(2,3).Font.Size = 6
Cells(2,3).Font.Italic = True 
Cells(2,3).HorizontalAlignment = xlCenter
Cells(2,4).Formula="'Times 6"
Cells(2,4).Font.Name = "Times"
Cells(2,4).Font.Size = 6
Cells(2,4).Font.Bold = True 
Cells(2,4).Font.Italic = True 
Cells(2,4).HorizontalAlignment = xlCenter
Cells(3,1).Formula="'Times 8"
Cells(3,1).Font.Name = "Times"
Cells(3,1).Font.Size = 8
Cells(3,1).HorizontalAlignment = xlCenter
Cells(3,2).Formula="'Times 8"
Cells(3,2).Font.Name = "Times"
Cells(3,2).Font.Size = 8
Cells(3,2).Font.Bold = True 
Cells(3,2).HorizontalAlignment = xlCenter
Cells(3,3).Formula="'Times 8"
Cells(3,3).Font.Name = "Times"
Cells(3,3).Font.Size = 8
Cells(3,3).Font.Italic = True 
Cells(3,3).HorizontalAlignment = xlCenter
Cells(3,4).Formula="'Times 8"
Cells(3,4).Font.Name = "Times"
Cells(3,4).Font.Size = 8
Cells(3,4).Font.Bold = True 
Cells(3,4).Font.Italic = True 
Cells(3,4).HorizontalAlignment = xlCenter
Cells(4,1).Formula="'Times 10"
Cells(4,1).Font.Name = "Times"
Cells(4,1).HorizontalAlignment = xlCenter
Cells(4,2).Formula="'Times 10"
Cells(4,2).Font.Name = "Times"
Cells(4,2).Font.Bold = True 
Cells(4,2).HorizontalAlignment = xlCenter
Cells(4,3).Formula="'Times 10"
Cells(4,3).Font.Name = "Times"
Cells(4,3).Font.Italic = True 
Cells(4,3).HorizontalAlignment = xlCenter
Cells(4,4).Formula="'Times 10"
Cells(4,4).Font.Name = "Times"
Cells(4,4).Font.Bold = True 
Cells(4,4).Font.Italic = True 
Cells(4,4).HorizontalAlignment = xlCenter
Cells(5,1).Formula="'Times 12"
Cells(5,1).Font.Name = "Times"
Cells(5,1).Font.Size = 12
Cells(5,1).HorizontalAlignment = xlCenter
Cells(5,2).Formula="'Times 12"
Cells(5,2).Font.Name = "Times"
Cells(5,2).Font.Size = 12
Cells(5,2).Font.Bold = True 
Cells(5,2).HorizontalAlignment = xlCenter
Cells(5,3).Formula="'Times 12"
Cells(5,3).Font.Name = "Times"
Cells(5,3).Font.Size = 12
Cells(5,3).Font.Italic = True 
Cells(5,3).HorizontalAlignment = xlCenter
Cells(5,4).Formula="'Times 12"
Cells(5,4).Font.Name = "Times"
Cells(5,4).Font.Size = 12
Cells(5,4).Font.Bold = True 
Cells(5,4).Font.Italic = True 
Cells(5,4).HorizontalAlignment = xlCenter
Cells(6,1).Formula="'Times 14"
Cells(6,1).Font.Name = "Times"
Cells(6,1).Font.Size = 14
Cells(6,1).HorizontalAlignment = xlCenter
Cells(6,2).Formula="'Times 14"
Cells(6,2).Font.Name = "Times"
Cells(6,2).Font.Size = 14
Cells(6,2).Font.Bold = True 
Cells(6,2).HorizontalAlignment = xlCenter
Cells(6,3).Formula="'Times 14"
Cells(6,3).Font.Name = "Times"
Cells(6,3).Font.Size = 14
Cells(6,3).Font.Italic = True 
Cells(6,3).HorizontalAlignment = xlCenter
Cells(6,4).Formula="'Times 14"
Cells(6,4).Font.Name = "Times"
Cells(6,4).Font.Size = 14
Cells(6,4).Font.Bold = True 
Cells(6,4).Font.Italic = True 
Cells(6,4).HorizontalAlignment = xlCenter
Cells(7,1).Formula="'Times 18"
Cells(7,1).Font.Name = "Times"
Cells(7,1).Font.Size = 18
Cells(7,1).HorizontalAlignment = xlCenter
Cells(7,2).Formula="'Times 18"
Cells(7,2).Font.Name = "Times"
Cells(7,2).Font.Size = 18
Cells(7,2).Font.Bold = True 
Cells(7,2).HorizontalAlignment = xlCenter
Cells(7,3).Formula="'Times 18"
Cells(7,3).Font.Name = "Times"
Cells(7,3).Font.Size = 18
Cells(7,3).Font.Italic = True 
Cells(7,3).HorizontalAlignment = xlCenter
Cells(7,4).Formula="'Times 18"
Cells(7,4).Font.Name = "Times"
Cells(7,4).Font.Size = 18
Cells(7,4).Font.Bold = True 
Cells(7,4).Font.Italic = True 
Cells(7,4).HorizontalAlignment = xlCenter
Cells(8,1).Formula="'Times 24"
Cells(8,1).Font.Name = "Times"
Cells(8,1).Font.Size = 24
Cells(8,1).HorizontalAlignment = xlCenter
Cells(8,2).Formula="'Times 24"
Cells(8,2).Font.Name = "Times"
Cells(8,2).Font.Size = 24
Cells(8,2).Font.Bold = True 
Cells(8,2).HorizontalAlignment = xlCenter
Cells(8,3).Formula="'Times 24"
Cells(8,3).Font.Name = "Times"
Cells(8,3).Font.Size = 24
Cells(8,3).Font.Italic = True 
Cells(8,3).HorizontalAlignment = xlCenter
Cells(8,4).Formula="'Times 24"
Cells(8,4).Font.Name = "Times"
Cells(8,4).Font.Size = 24
Cells(8,4).Font.Bold = True 
Cells(8,4).Font.Italic = True 
Cells(8,4).HorizontalAlignment = xlCenter
Worksheets.Add
Columns("A").ColumnWidth = 16.714286
Columns("B").ColumnWidth = 16.714286
Columns("C").ColumnWidth = 16.714286
Columns("D").ColumnWidth = 16.714286
Rows("8").RowHeight = 26
Cells(2,1).Formula="'Symbol 6"
Cells(2,1).Font.Name = "Symbol"
Cells(2,1).Font.Size = 6
Cells(2,1).HorizontalAlignment = xlCenter
Cells(2,2).Formula="'Symbol 6"
Cells(2,2).Font.Name = "Symbol"
Cells(2,2).Font.Size = 6
Cells(2,2).Font.Bold = True 
Cells(2,2).HorizontalAlignment = xlCenter
Cells(2,3).Formula="'Symbol 6"
Cells(2,3).Font.Name = "Symbol"
Cells(2,3).Font.Size = 6
Cells(2,3).Font.Italic = True 
Cells(2,3).HorizontalAlignment = xlCenter
Cells(2,4).Formula="'Symbol 6"
Cells(2,4).Font.Name = "Symbol"
Cells(2,4).Font.Size = 6
Cells(2,4).Font.Bold = True 
Cells(2,4).Font.Italic = True 
Cells(2,4).HorizontalAlignment = xlCenter
Cells(3,1).Formula="'Symbol 8"
Cells(3,1).Font.Name = "Symbol"
Cells(3,1).Font.Size = 8
Cells(3,1).HorizontalAlignment = xlCenter
Cells(3,2).Formula="'Symbol 8"
Cells(3,2).Font.Name = "Symbol"
Cells(3,2).Font.Size = 8
Cells(3,2).Font.Bold = True 
Cells(3,2).HorizontalAlignment = xlCenter
Cells(3,3).Formula="'Symbol 8"
Cells(3,3).Font.Name = "Symbol"
Cells(3,3).Font.Size = 8
Cells(3,3).Font.Italic = True 
Cells(3,3).HorizontalAlignment = xlCenter
Cells(3,4).Formula="'Symbol 8"
Cells(3,4).Font.Name = "Symbol"
Cells(3,4).Font.Size = 8
Cells(3,4).Font.Bold = True 
Cells(3,4).Font.Italic = True 
Cells(3,4).HorizontalAlignment = xlCenter
Cells(4,1).Formula="'Symbol 10"
Cells(4,1).Font.Name = "Symbol"
Cells(4,1).HorizontalAlignment = xlCenter
Cells(4,2).Formula="'Symbol 10"
Cells(4,2).Font.Name = "Symbol"
Cells(4,2).Font.Bold = True 
Cells(4,2).HorizontalAlignment = xlCenter
Cells(4,3).Formula="'Symbol 10"
Cells(4,3).Font.Name = "Symbol"
Cells(4,3).Font.Italic = True 
Cells(4,3).HorizontalAlignment = xlCenter
Cells(4,4).Formula="'Symbol 10"
Cells(4,4).Font.Name = "Symbol"
Cells(4,4).Font.Bold = True 
Cells(4,4).Font.Italic = True 
Cells(4,4).HorizontalAlignment = xlCenter
Cells(5,1).Formula="'Symbol 12"
Cells(5,1).Font.Name = "Symbol"
Cells(5,1).Font.Size = 12
Cells(5,1).HorizontalAlignment = xlCenter
Cells(5,2).Formula="'Symbol 12"
Cells(5,2).Font.Name = "Symbol"
Cells(5,2).Font.Size = 12
Cells(5,2).Font.Bold = True 
Cells(5,2).HorizontalAlignment = xlCenter
Cells(5,3).Formula="'Symbol 12"
Cells(5,3).Font.Name = "Symbol"
Cells(5,3).Font.Size = 12
Cells(5,3).Font.Italic = True 
Cells(5,3).HorizontalAlignment = xlCenter
Cells(5,4).Formula="'Symbol 12"
Cells(5,4).Font.Name = "Symbol"
Cells(5,4).Font.Size = 12
Cells(5,4).Font.Bold = True 
Cells(5,4).Font.Italic = True 
Cells(5,4).HorizontalAlignment = xlCenter
Cells(6,1).Formula="'Symbol 14"
Cells(6,1).Font.Name = "Symbol"
Cells(6,1).Font.Size = 14
Cells(6,1).HorizontalAlignment = xlCenter
Cells(6,2).Formula="'Symbol 14"
Cells(6,2).Font.Name = "Symbol"
Cells(6,2).Font.Size = 14
Cells(6,2).Font.Bold = True 
Cells(6,2).HorizontalAlignment = xlCenter
Cells(6,3).Formula="'Symbol 14"
Cells(6,3).Font.Name = "Symbol"
Cells(6,3).Font.Size = 14
Cells(6,3).Font.Italic = True 
Cells(6,3).HorizontalAlignment = xlCenter
Cells(6,4).Formula="'Symbol 14"
Cells(6,4).Font.Name = "Symbol"
Cells(6,4).Font.Size = 14
Cells(6,4).Font.Bold = True 
Cells(6,4).Font.Italic = True 
Cells(6,4).HorizontalAlignment = xlCenter
Cells(7,1).Formula="'Symbol 18"
Cells(7,1).Font.Name = "Symbol"
Cells(7,1).Font.Size = 18
Cells(7,1).HorizontalAlignment = xlCenter
Cells(7,2).Formula="'Symbol 18"
Cells(7,2).Font.Name = "Symbol"
Cells(7,2).Font.Size = 18
Cells(7,2).Font.Bold = True 
Cells(7,2).HorizontalAlignment = xlCenter
Cells(7,3).Formula="'Symbol 18"
Cells(7,3).Font.Name = "Symbol"
Cells(7,3).Font.Size = 18
Cells(7,3).Font.Italic = True 
Cells(7,3).HorizontalAlignment = xlCenter
Cells(7,4).Formula="'Symbol 18"
Cells(7,4).Font.Name = "Symbol"
Cells(7,4).Font.Size = 18
Cells(7,4).Font.Bold = True 
Cells(7,4).Font.Italic = True 
Cells(7,4).HorizontalAlignment = xlCenter
Cells(8,1).Formula="'Symbol 24"
Cells(8,1).Font.Name = "Symbol"
Cells(8,1).Font.Size = 24
Cells(8,1).HorizontalAlignment = xlCenter
Cells(8,2).Formula="'Symbol 24"
Cells(8,2).Font.Name = "Symbol"
Cells(8,2).Font.Size = 24
Cells(8,2).Font.Bold = True 
Cells(8,2).HorizontalAlignment = xlCenter
Cells(8,3).Formula="'Symbol 24"
Cells(8,3).Font.Name = "Symbol"
Cells(8,3).Font.Size = 24
Cells(8,3).Font.Italic = True 
Cells(8,3).HorizontalAlignment = xlCenter
Cells(8,4).Formula="'Symbol 24"
Cells(8,4).Font.Name = "Symbol"
Cells(8,4).Font.Size = 24
Cells(8,4).Font.Bold = True 
Cells(8,4).Font.Italic = True 
Cells(8,4).HorizontalAlignment = xlCenter
Worksheets(5).Activate
End Sub