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
Bookmarks