Worksheet_Change

Private Sub Worksheet_Change(ByVal Target As Range)
Dim calS As XlCalculation
If Not Intersect(Target, Range("a7:ez800")) Is Nothing Then
calS = Application.Calculation
Application.Calculation = xlCalculationManual
Application.EnableEvents = False
Application.Run "EingangsstempelEin"
Application.Calculation = calS
Application.EnableEvents = True
End If
End Sub

Der funktioniert aber nur bei Änderungen im definierten Range. Zu solchen Änderungen scheint aber nicht das Löschen des Zellinhaltes zu gehören, denn dann funktioniert dieser Code nicht.
Kann mir jemand sagen, wie der Code dann lauten müsste ?
Danke.
Viele Grüße,
Peter F.