Right I've done as you said

Sub Excel Test()

Sheets("Sheet1").Select
Sheets.Add
Range("A1:D10").Select
Selection.Borders(xlDiagonalDown).LineStyle = xlNone
Selection.Borders(xlDiagonalUp).LineStyle = xlNone
With Selection.Borders(xlEdgeLeft)
.LineStyle = xlContinuous
.Weight = xlThick
.ColorIndex = 6
End With
With Selection.Borders(xlEdgeTop)
.LineStyle = xlContinuous
.Weight = xlThick
.ColorIndex = 6
End With
With Selection.Borders(xlEdgeBottom)
.LineStyle = xlContinuous
.Weight = xlThick
.ColorIndex = 6
End With
With Selection.Borders(xlEdgeRight)
.LineStyle = xlContinuous
.Weight = xlThick
.ColorIndex = 6
End With
With Selection.Borders(xlInsideVertical)
.LineStyle = xlContinuous
.Weight = xlThick
.ColorIndex = 6
End With
With Selection.Borders(xlInsideHorizontal)
.LineStyle = xlContinuous
.Weight = xlThick
.ColorIndex = 6
End With

Range("A1,C1,B2,D2,C3,A3,B4,D4,C5,A5,B6,D6,C7,A7,B 8,D8,C9,A9,B10,D10").Select
Range("D10").Activate
With Selection.Interior
.ColorIndex = 3
.Pattern = xlSolid
End With

Range("A2,B1,B3,C2,D1,D3,C4,D5,C6,D7,C8,D9,C10,B9, A10,A8,B7,A6,B5,A4").Select
Range("A4").Activate
Selection.Font.ColorIndex = 4
With Selection.Interior
.ColorIndex = 4
.Pattern = xlSolid
End With
Range("E11").Select
End Sub

Does that require cleaning in any way? Or would that be acceptable yo
think

-----------------------------------------------
~~ Message posted from http://www.ExcelTip.com
~~View and post usenet messages directly from http://www.ExcelForum.com