Code for black boarder

Code for black boarder

Sub blackOutlineCells()
    Dim rng As Range

    Set rng = Range("A13:p44")

    With rng.Borders
        .LineStyle = xlContinuous
        .Color = vbBlack
        .Weight = xlThin
    End With
End Sub