FrmForma.Show

End Sub

Sub Mac()

'

Range("A1:E1").Select

With Selection

.HorizontalAlignment = xlCenter

.VerticalAlignment = xlBottom

.WrapText = False

.Orientation = 0

.AddIndent = False

.IndentLevel = 0

.ShrinkToFit = False

.ReadingOrder = xlContext

.MergeCells = False

End With

Selection.Merge

Range("A1:F5").Select

Range("F5").Activate

Columns("F:F").ColumnWidth = 18.57

Columns("E:E").ColumnWidth = 16.14

Columns("D:D").ColumnWidth = 13.29

Columns("C:C").ColumnWidth = 13.29

Columns("B:B").ColumnWidth = 14.14

Range("A1:E5").Select

Range("E5").Activate

With Selection

.HorizontalAlignment = xlCenter

.VerticalAlignment = xlBottom

.WrapText = False

.Orientation = 0

.AddIndent = False

.IndentLevel = 0

.ShrinkToFit = False

.ReadingOrder = xlContext

End With

Range("G6").Select

Columns("C:C").ColumnWidth = 21.43

Columns("D:D").Select

Range("D2").Activate

Selection.ColumnWidth = 16.14

Range("A1:E7").Select

Range("E7").Activate

Selection.Borders(xlDiagonalDown).LineStyle = xlNone

Selection.Borders(xlDiagonalUp).LineStyle = xlNone

With Selection.Borders(xlEdgeLeft)

.LineStyle = xlContinuous

.Weight = xlThin

.ColorIndex = xlAutomatic

End With

With Selection.Borders(xlEdgeTop)

.LineStyle = xlContinuous

.Weight = xlThin

.ColorIndex = xlAutomatic