Chuck

You've done nothing wrong.

I have never been able to get the copy/paste function back using this code.

Tried wrapping in eneableevents true and false, but no joy.

Chip's rowliner add-in makes provision for this by highlighting only a portion
of the activecell so's you can right-click or double-click on the
unhighlighted portion for copy/paste etc.

Best to go with that unless someone will jump in with a fix for the code I
posted(which was from Chip long time past).


Gord

On Mon, 12 Dec 2005 11:53:02 -0800, CLR wrote:

Hi Gord............

This code works neat, except I seem to have lost the ability to
CopyAndPaste..........what might I have done wrong?

Vaya con Dios,
Chuck, CABGx3



"Gord Dibben" wrote:

E

Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
Static OldCell As Range
If Not OldCell Is Nothing Then
OldCell.Interior.ColorIndex = xlColorIndexNone
End If
Target.Interior.ColorIndex = 6
Set OldCell = Target
End Sub

This is worksheet event code.

Right-click on the sheet tab and "View Code"

Copy and paste the code above into that module.

Alternative..............

Go to Chip Pearson's site and downloas his Rowliner Add-in so's you can have
the highlighting available for all open workbooks and sheets.

http://www.cpearson.com/excel/RowLiner.htm


Gord Dibben Excel MVP

On Mon, 12 Dec 2005 08:29:03 -0800, "E" wrote:

Hi,

I would like to know if there was a way to have an active cell always in
yellow or any color.

Example: If the active cell is moved around, the active cell will be always
in yellow.

Thank you in advance