Private Sub CheckBox1_Click() If CheckBox1.Value Then Range("B1").Value = 0.33 Else Range("B1").Value = 0.3 End If End Sub