Instead of changing the color index of the cell, have your code apply a
conditional format to the cell. this allows you to change the font color
and background color without altering the original colors.

You can turn on the macro recorder while you apply a conditional format
manually to get the code. The formula just needs to return true, so use
Formula is and =True

--
Regards,
Tom Ogilvy


"Brian Matlack" wrote:


Hi!
I got this code off of one of Chip Pearsons sites and it works great on
a white sheet.
Is there a way to modify it so that:

1. If I have a cell colored Red and I select it and then move on to
another cell the Red cell is now White. I want the cells to revert back
to whatever their original color was.

2. Can I effect the Font Color as well as the background color and
still have them revert back to the original settings.

<start code
Option Explicit
Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, 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 'Yellow

Set OldCell = Target

End Sub
<end code
Thanks for your time and help!


--
Brian Matlack
------------------------------------------------------------------------
Brian Matlack's Profile: http://www.excelforum.com/member.php...fo&userid=3508
View this thread: http://www.excelforum.com/showthread...hreadid=536781