[RESOLVED] Cell borders

I've been trying to retrieve the number of borders a cell has using:

selection.Borders.Value

which gives the following results:

• if the cell has no border you get -4142
• if the cell has a complete border (4 lines) you get 1
• if the cell has from 1 to 3 lines you get Null

How can I identify if the cell only has, for example, one upper border and one left border? etc...

Quote:

---

How can I identify if the cell only has, for example, one upper border and one left border? etc...

---

Code:

---

Sub Sample()
    With Range("E5") '<~~ Change this to relevant cell
        '~~> Check Status of Top and LeftBorder
        If .Borders(xlEdgeTop).LineStyle = 1 And _
        .Borders(xlEdgeLeft).LineStyle = 1 Then
            '~~> If true then check if there are any other borders
            If .Borders(xlEdgeBottom).LineStyle <> 1 And _
            .Borders(xlEdgeRight).LineStyle Then
                MsgBox "Cell has only left and top border"
            End If
        End If
    End With
End Sub

---