With otbl.Cell(2, 1).Borders(ppBorderBottom) .Visible = True .Weight = 3 .ForeColor.RGB = vbBlack .Style = msoLineThinThin End With