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