Sub BorderLineSytlesII() Dim rg As Range Set rg = ThisWorkbook.Worksheets("Borders").Range("A1:E3") rg.Offset(1, 2).Borders(xlEdgeBottom).LineStyle = xlDouble Set rg = Nothing End Sub