S
Sandy
Why does this code not run when the worksheet changes?
It will run correctly if I change the first line to:-
"Private Sub Work()" and then run it manually.
Sandy
Private Sub Worksheet_Change(ByVal Target As Range)
Application.ScreenUpdating = False
Application.EnableEvents = False
For Each mycell In Range("C14:K14,M14:U14")
With mycell
If mycell.Offset(-5).Value = 3 Then
.Value = "Miss"
ElseIf mycell.Offset(-5).Value <> 3 Then
mycell.Value = "Hit"
End If
End With
Next mycell
Application.ScreenUpdating = True
Application.EnableEvents = True
End Sub
It will run correctly if I change the first line to:-
"Private Sub Work()" and then run it manually.
Sandy
Private Sub Worksheet_Change(ByVal Target As Range)
Application.ScreenUpdating = False
Application.EnableEvents = False
For Each mycell In Range("C14:K14,M14:U14")
With mycell
If mycell.Offset(-5).Value = 3 Then
.Value = "Miss"
ElseIf mycell.Offset(-5).Value <> 3 Then
mycell.Value = "Hit"
End If
End With
Next mycell
Application.ScreenUpdating = True
Application.EnableEvents = True
End Sub