Automatische - Manuelle Berechnung anzeigen

Private Sub CommandButton1_Click()
With Application
.Calculation = xlManual
.MaxChange = 0.001
End With
ActiveWorkbook.PrecisionAsDisplayed = False
End Sub

Private Sub CommandButton2_Click()
With Application
.Calculation = xlAutomatic
.MaxChange = 0.001
End With
ActiveWorkbook.PrecisionAsDisplayed = False
End Sub

Jetzt würde ich gerne eine Wenn-Bedingung definieren, so dass z.B. in Zelle A1 eine 1 steht, wenn auf Automatisch eingestellt ist und eine 0 wenn manuell eingestellt ist.
Kann mir jemand sagen, wie ich das hinkriege?
Vielen Dank und Gruss
Ben