VBA for put cell C2 in overstrike/black when B2 checkbox is ticked?

I was thinking that it would help with a list I have if I added a
column with a checkbox that, once ticked, would put contents in cell
to the right of it in list, in overstrike and black (as the font is
coloured to begin with). How would one go about that? Tx!

Private Sub Checkbox1_Click()
Dim rng as Range
set rng = me.OleObjects("CheckBox1").TopLeftCell
if checkbox1.Value then
With rng.offset(0,1).Font
.StrikeThrough = True
.ColorIndex = xlAutomatic
End With
else
With rng.offset(0,1).Font
.StrikeThrough = False
.ColorIndex = 3
End With
End if
End Sub

--
Regards,
Tom Ogilvy

"StargateFan" <IDon'tAcceptSpam@IDon'tAcceptSpam.com> wrote in message
news:[email protected]...
> I was thinking that it would help with a list I have if I added a
> column with a checkbox that, once ticked, would put contents in cell
> to the right of it in list, in overstrike and black (as the font is
> coloured to begin with). How would one go about that? Tx!
>