Cells[i,j].Borders.LineStyle := xlContinuous;