Test if top of cell has a border

[yawnzzzz]

What would I use to test if the top of a cell has a border?

[VBA Noob]

yawnzzzz,

Please try to be more descriptive with your titles as per forum rules below

Sub TestForBorder()
Dim c As Range

    For Each c In Selection
        If c.Borders(xlEdgeTop).LineStyle = xlContinuous Then
            MsgBox c.Address(0, 0)
        End If
    Next
        
End Sub

VBA Noob