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....
"Rollie13" wrote in message
...
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