try this one liner
Sub ifrightborder()
If ActiveCell.Borders(xlEdgeRight).LineStyle _
< xlLineStyleNone Then MsgBox "Hi"
End Sub


--
Don Guillett
Microsoft MVP Excel
SalesAid Software

"PdeC" wrote in message
...
How can I determine if a cell has a right border or not ?
Thanks for a code.