my auto cell hiliting procedure kills copy/paste

[John]

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).LineStyle = xlContinuous
ActiveCell.EntireRow.Borders(xlEdgeBottom).Weight = xlThick

[Jim Thomlinson]

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).LineStyle = xlContinuous
> ActiveCell.EntireRow.Borders(xlEdgeBottom).Weight = xlThick

[David]

=?Utf-8?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).LineStyle =
> 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