Office: (Office 365) Zwei Mails gehen raus. Soll nur eine

Hallo Zusammen,

die Datei im Anhang soll eine Email versenden wenn der Wert in Zelle G2 höher wird als der in Zelle G3.
Das funktiooniert aus soweit.
Leider sendet Outlook immer zwei mal die Mail raus .
Würde es mal jemand testen bei sich am PC ?

Finde den Fehler nicht.

 

........für alle bei denen das Problem auch mal auftaucht.
Habe es jetzt über VBA gelöst.

Code:

Sub Worksheet_Change(ByVal Target As Excel.Range)
If Worksheets("Tabelle1").Range("G2") > Worksheets("Tabelle1").Range("G3") Then
Call senden_
End If
End Sub