Hello,
Go to the developer tab, click "Design Mode" to activate design mode, right-click the checkbox and click "View Code." Then add this code:
Then go back to the developer tab, click "Design Mode" to deactivate design mode.Code:Private Sub CheckBox1_Click() If (CheckBox1.Value = True) Then Range("D5").Value = Range("D5").Value * 2 Else Range("D5").Value = Range("D5").Value / 2 End If End Sub
Hope this helps.
Bookmarks