Try something like this:

If CheckBox1.Value = True then
rng(1, 3)="X"
else rng(1,3).clearcontents
end if

--
steveB

Remove "AYN" from email to respond
"Patrick Simonds" wrote in message
...
The code below enters True when the CheckBox is checked, and False when it
is not. Is there any way to have it place an X when the checkbox is
checked
and nothing when it is not checked?

rng(1, 3).Value = CheckBox1.Value