Reaktion WS_Change Intersect

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Application.Intersect(Target, Range("G68:H68")) Is Nothing Then
MsgBox "Im Bereich G68:H68 wurde eine Zelle geändert!"
' Primitiv-Beispiel, but nothing happens :
Range("I70").Value = Range("G68").Value * Range("H68").Value
End If
End Sub