WITH .Parent.Styles("Cell") .Borders(xlEdgeTop).LineStyle = xlContinuous .Borders(xlEdgeLeft).LineStyle = xlContinuous .Borders(xlEdgeRight).LineStyle = xlContinuous .Borders(xlEdgeBottom).LineStyle = xlContinuous ENDWITH **-- set all cells with borders FOR lnI = 1 TO .usedRange.columns.count FOR lnJ = 1 TO .UsedRange.rows.count lcRange = [.Range("] + CHR(lnI + 64) + ALLTRIM(STR(lnj)) + [").Style = "Cell"] &lcRange ENDFOR ENDFOR