Erase Diagonal Border Lines In A Range of Cells

[Ark68]

       With .Range("B6:B47")
            .Borders(xlDiagonalDown).LineStyle = xlNone
        End With

I am trying to use this code to eliminate the diagonal lines in each cell of the range. This code only appears to be eliminating the line in cell B6.

 

[Ark68]

Disregard ... this is working.

       With .Range("B6:B47")
            .Borders(xlDiagonalDown).LineStyle = xlNone
        End With

I am trying to use this code to eliminate the diagonal lines in each cell of the range. This code only appears to be eliminating the line in cell B6.