That's different. You would need something like this. First select the
cells with the existing information you want to highlight.

Sub ConvertExisting()
Dim rng As Excel.Range
For Each rng In Selection
Select Case rng
Case "Carol"
rng.Interior.ColorIndex = 5
Case "Steve"
rng.Interior.ColorIndex = 10
Case "Lulu"
rng.Interior.ColorIndex = 6
Case "Shara"
rng.Interior.ColorIndex = 46
Case "Lilian"
rg.Interior.ColorIndex = 45
End Select
Next rng
End Sub


This is just some air code, but it should work.

HTH,
JP

On Feb 29, 5:30*pm, sharakbh
wrote:
I'm getting there . . . * I opened up a brand new spreadsheet to try this
again. *So I posted in the following code on to the VB page and saved it.. *
When I went to the worksheet to Cells C1:C45 and manually typed in Carol,
Shara, etc, the cell changed to a color. *YEAH! * . . . BUT . . . in my
example, for the cells that already have data in them, what is the
workaround/coding to make those change to a color as well (w/o cutting and
pasting my data in order for the cells to change color)? *Again, thanks for
your help JP!

Private Sub Worksheet_Change(ByVal Target As Range)
Dim WatchRange As Range
Dim CellVal As String
If Target.Cells.Count 1 Then Exit Sub
If Target = "" Then Exit Sub
CellVal = Target
Set WatchRange = Range("C1:C45")

If Not Intersect(Target, WatchRange) Is Nothing Then
Select Case CellVal
Case "Carol"
Target.Interior.ColorIndex = 5
Case "Steve"
Target.Interior.ColorIndex = 10
Case "Lulu"
Target.Interior.ColorIndex = 6
Case "Shara"
Target.Interior.ColorIndex = 46
Case "Lilian"
Target.Interior.ColorIndex = 45
End Select
End If
End Sub
--
sharakbh



"JP" wrote:
You would simply change the range in WatchRange to cover the cells
where you are placing the names. For example if you were typing the
names in cells A3:I3, change it to

Set WatchRange = Range("A3:I3")

Now type a name in one of those cells. If it still doesn't change
color, can you post the EXACT code you are using?

HTH,
JP

On Feb 29, 2:26 pm, sharakbh
wrote:
Sorry, I meant columns! :-) * * So, it still doesn't work for me. *This is my
first time going to the VB tab to enter code. *As I mentioned, I'm not a
total power user (coder), just an "avg Joe" with intermediate skill level. *
Is there something I need (add-in) in order to make this work? *Not sure why
it won't work, when it seems to work for previous posters. *Thx for your
help! :-)
--
sharakbh- Hide quoted text -

- Show quoted text -