Hi there can anyone help with the above. I am fairly new to the VBA program and have never came across this. My code is as follows if it is the problem
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("G7:K154")) Is Nothing Then
Application.EnableEvents = False
Target.Offset(, 8).Value = Time
Application.EnableEvents = True
ElseIf Not Intersect(Target, Range("A7:A154")) Is Nothing Then
Application.EnableEvents = False
Target.Offset(, 20).Value = Time
Application.EnableEvents = True
End If
End Sub
Thanks
Paul
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("G7:K154")) Is Nothing Then
Application.EnableEvents = False
Target.Offset(, 8).Value = Time
Application.EnableEvents = True
ElseIf Not Intersect(Target, Range("A7:A154")) Is Nothing Then
Application.EnableEvents = False
Target.Offset(, 20).Value = Time
Application.EnableEvents = True
End If
End Sub
Thanks
Paul