Borders Around Cells

hi kapeller

Sub DoTheLot()    'Borders
 Dim R As Long
 Dim myarray(), xItem
 myarray = Array(xlEdgeLeft, xlEdgeTop, xlEdgeBottom, xlEdgeRight)
    With ActiveSheet
        For R = 5 To .Range("J" & Rows.Count).End(xlUp).Row
            If .Cells(R, "J").Value = "Out of Order" Then
                With .Cells(R, "J")
                    .Font.ColorIndex = 3    'Red
                    For Each xItem In myarray
                        With .Borders(xItem)
                            .LineStyle = xlContinuous
                            .Weight = xlThin
                            .ColorIndex = xlAutomatic
                        End With
                    Next
                    End With
                End If
            Next R
        End With
 End Sub