Why does my code not get run/called?

Well here is my code that someone helped me out with, however it never gets called. I thought all i had to do was right click on my worksheet tab, view code, and paste. Could someone pleaze help me out.

Private Sub Worksheet_Change(ByVal Target As Range)

On Error GoTo Finish

If Left(Target.Address, 2) = "$A" 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

Finish:

Application.EnableEvents = True

End Sub

This will work on any change to a cell in Col A. You didn't specify where the changes occur so change the IF statement to suit. This code needs to be pasted in the sheet code section (right click on the sheet tab and select 'view code')

Hi!

Runs for me but:

I took out the on error goto finish. With a thing like that in the script you'll never find what goes wrong because "nothing" happens, apparently.

I prefer if target.row=1 then.

If you are interested in application.enableevents, I guess you need to disable them first so you can re-enable them later.

I can't really tell if it works because I am not entirely certain what you want it to do. Can you amplify?

Alf