See my answer to your later posting of this question.

--
Regards,
Tom Ogilvy

"teresa" wrote in message
...
Sorry Bob - I didnt understand your response

"Bob Phillips" wrote:

Link the checkbox to a cell, and add a worksheet formula to test that
linked
cell.

--

HTH

RP
(remove nothere from the email address if mailing direct)


"teresa" wrote in message
...
Hi - this sort of works, however if the checkbox is ticked and I
then change the value in K33, l6 doesnt change in tandem,
I have to untick and then tick again - think an extra line is needed
Thanks A Lot for any help

Sub checkbox1_click()

If CheckBox1.Value Then
Range("l6") = Range("k33")
Else
Range("l6") = 0
End If
End Sub