VBA Syntax

[jonny1409]

Hello, I wonder if you can help me please?

I have a sheet which has some drawn boxes on there that have macros behind them.
When I click onto the boxes I want them to act as though they are buttons.

They do this by default, but once I put my code behind them, they end up selected (with the squares on each corner).

I can see exactly why this is happening, but I don't know the syntax to stop it.

My code is:

ActiveSheet.Shapes.Range(Array("Rounded Rectangle 21")).Select
Selection.ShapeRange(1).TextFrame2.TextRange.Characters.Text = "Finance (" + CStr(iCount) + ")"

So it is the xxx.select that is causing it.

How can I change this so that it works the same way, but doesn't select the box?

Thank you,

 

[Puertorekinsam]

Why not just use ActiveX buttons?

 

[jonny1409]

No idea how to be honest - I'll look it up.
However, there are tons of buttons on this sheet (I didn't design it originally, I'm just looking to improve it in areas) so If I could find out how to do this in the short term it would be great.

Cheers.

 

[MickG]

Perhaps something like this:-
This will add text to the active shape reflected by the code.

Sub Rectangle2_Click()
ActiveSheet.Shapes(Application.caller).TextFrame.Characters.Text = "Today is the " & Date
End Sub