Makro nur ausführbar, wenn...

ich habe eine kleine Situation und bitte um Euere Hilfe:

Ich habe ein Makro, das wie folgt aussieht und in jeder Tabelle meines Projektes ausführbar ist:

Sub SFZ9_1200()
ActiveCell.FormulaR1C1 = "9:00"
ActiveCell.Offset(0, 1).Range("A1").Select
ActiveCell.FormulaR1C1 = ""
ActiveCell.Offset(0, 1).Range("A1").Select
ActiveCell.FormulaR1C1 = "12:00"
ActiveCell.Offset(0, 5).Range("A1").Select
End Sub

Nun möchte ich aber, dass das Ausführen nur möglich ist, wenn in der Zelle A1 der jeweiligen Tabelle eine 1 steht (und nicht wenn da eine 0 steht).

Danke und Gruss
Xico