Formeln löschen die älter sind als

Sub AutoOpen()
Call Makro
End Sub

Es sollen alle Formeln die älter sind als das heutige Datum (Monat) -1 gelöscht werden.
VBA Code, Datum:

Sub datum()
Dim sdatum As Date
Dim adatum As Date
sdatum = Application.Text(Now(), "mm-dd-yyyy")
adatum = sdatum - 30
End Sub

Ist doch OK, oder kennt jemand ne einfacher oder schneller Möglichkeit?
Jetzt fehlt nur noch ne Funktion um die Formeln zu löschen.
Kennt da jemand zufällig eine?
Ja des wär’s dann soweit.
Schon mal Danke für die Hilfe
Mit freundlichen Grüßen