Sorry. There is no effective way around it.
--
HTH...

Jim Thomlinson


"John" wrote:

I have the macro code below that follows the cursor and underlines the active
cell selection row to assist users. But this seems to kill any copy/paste
capability. Is there any easy way around this problem?

Cells.Borders.LineStyle = xlNone
ActiveCell.EntireRow.Borders(xlEdgeBottom).LineSty le = xlContinuous
ActiveCell.EntireRow.Borders(xlEdgeBottom).Weight = xlThick