my auto cell hiliting procedure kills copy/paste
 

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

my auto cell hiliting procedure kills copy/paste
 

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

my auto cell hiliting procedure kills copy/paste
 

?B?Sm9obg==?= 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


Try putting this line ahead of Cells.Borders.LineStyle = xlNone
If Application.CutCopyMode = 1 Then Exit Sub

--
David