I can run a macro to put XXXX were I want but what I'm looking to do is, when I click anywhere on the big square it will place 1 X  in the oval shape then when I click the big square again it will again place an other X ,,,, Please click On Subject to see tagged file if not visable

6 Replies


Create the following macro and assign it to the rectangle:

Sub Rectangle1_Click()
    With ActiveSheet.Shapes("Oval 2").TextFrame2.TextRange
        .Text = .Text & "X"
    End With
End Sub

@Hans Vogelaar  Am I wrighting this wrong


You didn't copy the code correctly. See the attached version.

@Hans Vogelaar 

Hi Hans, with regards to my above post, looking to see if you can help again. iv attached below a screen shoot of what I'm doing or trying to do, I tried to assign a Marco but did not work so deleted Macro but when click were Macro was used I'm getting this.

What I want to do is create a macro as you can see to work as if I'm at a bank machine.



best response confirmed by Norman_Glenn (Contributor)


The easiest way to get rid of the problem is to create a new macro with the same name creatX.

I have done so and added some functionality, perhaps you can use that as starting point.

That's a great help thank you very much. Amazing reply,