my auto cell hiliting procedure kills copy/paste

Thread view:

Enable EMail Alerts

Start New Thread

Thread rating:

John - 24 Jan 2006 23:18 GMT

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

Reply to this Message

Jim Thomlinson - 25 Jan 2006 00:43 GMT

Sorry. There is no effective way around it.

Signature

HTH...

Jim Thomlinson

> 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
[quoted text clipped - 3 lines]
> ActiveCell.EntireRow.Borders(xlEdgeBottom).LineStyle = xlContinuous
> ActiveCell.EntireRow.Borders(xlEdgeBottom).Weight = xlThick

Reply to this Message

David - 25 Jan 2006 10:40 GMT

=?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
[quoted text clipped - 4 lines]
> xlContinuous ActiveCell.EntireRow.Borders(xlEdgeBottom).Weight =
> xlThick

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

Signature

David

Reply to this Message