The code below is a simple event procedure that when the word "Hi" is typed ina specified range then that "target cell" changes automatically to the word "Works!" Unfortunately this doesn't always work, for example if i type a different word after the word "Hi", then the code doesn't execute in the next instance. Also, the code won't work when i open the workbook, to get it to work i need the events to be enabled again via a different macro.
Private Sub Worksheet_Change(ByVal Target As Range)

Application.EnableEvents = True
On Error GoTo ErrHandler

If Target.Row > 5 And Target.Column = 2 Then
    If Target.Value = "Hi" Then
        Target.Value = "Works!"
    End If
End If

ErrHandler:
Application.EnableEvents = False

End Sub
All help on this would be greatly appreciated