how do i change the value of a cell with a checkbox

[Guest]

I'm trying to have a cell value changed on the click of a checkbox. The total
value of the cell must change according to the checkbox selected. It's for an
automated expense account sheet which calculate the amount of mileage done in
a month and a grand total of the entire year along with monthly reimbursement.

Tx for any help

 

[Corey]

Private Sub CheckBox1_Click()
If Range("A1").Value = True Then ' <=== Linked Cell for Check box (Check Box
Properties)
Range("B1").Value = "100" '<======== Cell(B1) is the cell value you want to
modify depending on check box result
Else
Range("B1").Value = "200"
End If
End Sub

Corey....

 

[Guest]

In design view, open the properties sheet for the check box. Enter a cell
reference in the LinkedCell property. This cell will be True if the check box
is ticked and false if it isn't. You can then test the cell in your formula.

 

[Guest]

Tx u 2 for the prompt answer.
I tested it and it worked great.
Tx again