>>805
Worksheets("02").Cells(t, y).Borders.LineStyle = xlContinuous