Worksheet_Change funktioniert nicht

Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
Cells(Target.Row, Target.Column + 4).Value = Cells(Target.Row, Target.Column).Value
Application.EnableEvents = True
End Sub

Wenn ich das ausprobieren will funktioniert es nicht.
Auf mehreren anderen PC´s geht es aber.
Was ist an meinem Excel verstellt das das Makro nicht ausgeführt wird ?
Danke