Thanks Gord, I cannot get the code right to do even one cell. The problem is
if I knew how to write the code I wouldn't ask on this venue and truthfully,
I've just been getting tossed pieces of information and not the full
resolution so it is very difficult to learn from these boards.

When I write the code, the declarations are not working because to do Select
Case you have to indicate what it is you are looking for.

In my case, SaddleColor = WHAT? A range, that didnt work. What is it?
This was my futile attempt of just changing 3 cells in a range. It did
nothing.

Sub Macro3()

Dim SaddleColor As String

SaddleColor = "e7:e9"

Select Case SaddleColor

Case Is = 1
With Selection.Interior
.ColorIndex = 3
.Pattern = xlSolid
End With
Selection.Font.ColorIndex = 2

End Select
End Sub




"Gord Dibben" wrote:

Have you tried

Private Sub Worksheet_Calculate()

instead of the change event?


Gord Dibben MS Excel MVP

On Tue, 1 Jul 2008 15:29:01 -0700, Shu of AZ
wrote:

I did not ask for an Event. That was offered to me by Shane and you. I did
not work. The user would have to enter the value and press enter.