Insert ONLY a space in cell with checkbox

How do I do, so that if the box is NOT checked - it inserts a space(and only a space) in the cell below?

And removes it if checked...

Blank.xlsx

Put this in a Module and assign to your control.

Please Login or Register  to view this content.

Thanks.

I've done some editting, as I need it to do the work in other cells, and I get this error... why= :-)

Sub CBCheck()
With ActiveSheet.Shapes("Menu")
If .ControlFormat.Value = 1 Then '1= True
.Range("C3").Value = " "
Else
.Range("C3").Value = ""
End If
End With
End Sub

The shape with that name does not exist on the activesheet.