CheckBox returns a True value when checked, or a False value if not.
Private Sub CheckBox1_Click() If CheckBox1.Value Then Range("B1").Value = 0.33 Else Range("B1").Value = 0.3 End If End Sub