With Workbook.Worksheets[1].Range['B2', 'B2'].Borders[xlEdgeBottom] do begin LineStyle := xlContinuous; Weight := xlThin; ColorIndex := 3; end;