[/COLOR]
Sub Macro1()
Dim PL As Range
Dim LI As Byte
Dim COL As Byte
Columns("A:I").ColumnWidth = Rows(1).RowHeight / 6
Set PL = Range("A1:I9")
PL.Interior.ColorIndex = xlNone
For LI = 1 To 9
For COL = 1 To 9
If LI = COL Or LI = 10 - COL Then Cells(LI, COL).Interior.ColorIndex = 3
Next COL
Next LI
For LI = 1 To 9
For COL = 2 To 8
If COL >= LI + 1 And COL <= 9 - LI Then Cells(LI, COL).Interior.ColorIndex = 5
Next COL
Next LI
End Sub[COLOR=rgb(0, 0, 0)]