Is there a way to check wether an active cell is bordered?

If ActiveCell is bordered Then
--- action ---
End If

Thank you very much in advance