1.Right click on the toolbar, from the popup select control box.
2.Select a command button from the control box on your sheet
3.Double click on the command button to open the code window and past
following codes
Code
-------------------
Private Sub CommandButton1_Click()
Sheet1.Range("A1").Value = Not CBool(Sheet1.Range("A1").Value)
End Sub
-------------------
Chris