Private Sub Worksheet_Change(ByVal Target As Range)

If Left(Target.Address, 2) = "$F" Then
Select Case UCase(Target.Value)
Case "STR"
Target.EntireRow.Font.ColorIndex = 43
Case "LTR"
Target.EntireRow.Font.ColorIndex = 41
Case "SGE"
Target.EntireRow.Font.ColorIndex = 3
Case Else
Target.EntireRow.Font.ColorIndex = 0
End Select
End If
End Sub

The code in theory should work right? but it never gets run on selection change, i even put in a beep before the if statement to see if it would beep.. nothing. Can someone give me the steps to inserting vb code into a worksheet. I am right clicking on the tab at the bottom.. selecting view code.. pasting.. saving.. and compiling. and i having no luck! thanks
mdpx