.....
For Each acell In Selection
If UCase(acell) = "J" And UCase(acell.Offset(0, -1)) = "N" Then
With acell.Borders(xlEdgeLeft)
.ColorIndex = 3
End With
With acell.Borders(xlEdgeTop)
.ColorIndex = 3
End With
With acell.Borders(xlEdgeBottom)
.ColorIndex = 3
End With
With acell.Borders(xlEdgeRight)
.ColorIndex = 3
End With
End If
Next
....