I can try but what is j7 I had tried the control box
--
John


"George" wrote:

Assue you use control Check box with cell link of "J7", try

Sub CheckBox19_Click()


If Range("j7").Value = True Then
Range("I24").Select
ActiveCell.FormulaR1C1 = "=0.07*R[-1]C"
Else
Range("I24").Select
Selection.Value = 0
End If
End Sub

George