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 paste following codes
Code:
Private Sub CommandButton1_Click()
Sheet1.Range("A1").Value = Not CBool(Sheet1.Range("A1").Value)
End Sub
Chris
------
Convert your Excel spreadsheet into an online calculator.
http://www.spreadsheetconverter.com