Bei Datumsänderung Zelle neu beschreiben

Ich möchte, dass wenn in der Zelle D3 der erste des Monat erscheint, die Zelle E3 auf 0 gesetzt  _
wird.
An jedem ersten des Monats.
Durch die Schaltfläche E2 soll die 0 in eine 1 gewandelt werden können. Ist dies der Fall soll  _
am nächsten ersten des folgenden Monats in E3 wieder eine 0 erscheinen, solange bis dies wieder durch die Schaltfläche E2 geändert wird, soll dann aber wieder am 01. eine 0 werden, falls nicht bereits vorhanden.

Private Sub Worksheet_Calculate()
Range("E3") = IIf(Day(Range("D3")) = 1, 0, Range("E3"))
End Sub

Public Sub Zurücksetzen()
Range("E3") = 1
End Sub

=HEUTE()