Thank you very much Peter you are right about the differences. Mike thanks as
well for you time

"Peter T" wrote:

Mike & jobra,

Some of the Linestyle's return less that zero, eg xlDash (-4115 ), xlDouble
(-4119), and others.

Sub test()
Dim s As String
Dim v As Variant
v = ActiveCell.Borders.LineStyle
If IsNull(v) Then
'less than 4 borders and/or mixed styles
s = "mixed borders"
ElseIf v = xlLineStyleNone Then
s = "no borders"
Else
s = "got 4 same style borders"
End If
MsgBox s
End Sub

Regards,
Peter T

"Mike Fogleman" wrote in message
...
If ActiveCell.Borders.LineStyle 0 Then

Mike F
"jobra" wrote in message
...
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