Change cell to color, just need little help

[cfer]

Hi,

Found some code from way back, thanks to Nimrod, that almost worked for me. Works fine as it is below.

Where the case statement reads Case 90 To 100 'A, I want to substitue the 90 To 100 with a leter ie x The same for the others, but have f t s.

When I change it to an x, I get a green color, I pres the Delete key I get a green cell, If I change all the cases to a different letter, and color number, I only get a green cell still.

The Code from Nimrod, that I am trying to adapt, my little cooment to the side , is below

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)

With Target
If .Column = 1 Then
Select Case Val(.Value)
Case 90 To 100 ' A I want this to be an x
.Interior.ColorIndex = 4
Case 80 To 89 ' B I want this to be an f
.Interior.ColorIndex = 6
Case 70 To 79 ' c I want this to be an s
.Interior.ColorIndex = 8
Case 60 To 69 ' D I want this to be an p
.Interior.ColorIndex = 7
Case 1 To 59 ' F I want this to be an t
.Interior.ColorIndex = 5
Case Else 'reset to default if non of above
.Interior.ColorIndex = xlNone
.Font.ColorIndex = 0
End Select
End If
End With
End Sub

Any suggestions please.

Thanks

 

[PA HS Teacher]

Try changing
Select Case Val(.Value)

to

Select Case .Value

then Change the Case statements to

Case "x"
Case "f"

etc.

disclaimer. (I have not tested this suggestion)

 

[lenze]

If you are using a change event, use

Select Case Target

Private Sub Worksheet_Change(ByVal Target As Range)
    Select Case Target
    Case "f"
        'somecode
    Case "t"
    'etc
    End Select
End Sub

lenze