Excel vba IF THEN ELSE statement

Hi. I have two Subs: one inserts a shape ("Checkmark") on top of another shape, a square, and

one erases a shape ("Checkmark") when it is selected.

When a user double-clicks on a particular square, one of two things must happen:

a) If the square is empty, a checkmark gets inserted into the square;

b) If the square already has a checkmark in it, the checkmark gets erased.

My problem is: I'm having trouble writing an If Then Else statement that works!

If there's no checkmark in the square, then insert one;

Else

If the square contains a checkmark, erase it.

Both of the existing subs work properly. The _BeforeDoubleClick_ action also works fine. But I can't make the If Then Else statement work properly. Help, please! Thank you.

The existing subs:

Please Login or Register  to view this content.

Please Login or Register  to view this content.

Use Select Case statement.
Why do you need a shape of a checkmark, you've got a font (use Marlett or Windings or one of those)
Sample?