D Don Guillett Aug 14, 2008 #2 try this one liner Sub ifrightborder() If ActiveCell.Borders(xlEdgeRight).LineStyle _ <> xlLineStyleNone Then MsgBox "Hi" End Sub
try this one liner Sub ifrightborder() If ActiveCell.Borders(xlEdgeRight).LineStyle _ <> xlLineStyleNone Then MsgBox "Hi" End Sub