How to simulate a click into a textbox (shapes)

A

Alex St-Pierre

Hi,
I have a macro that is execute when I click on a textbox using .OnAction =
"'Macro1". After the Execution of Macro1, I would like to activate the box
as if there was no macro. (cursor flickering in the box).
Thank you!
Alex
 
P

Peter T

Sub testMacro()
Dim shp As Shape

Set shp = ActiveSheet.Shapes(Application.Caller)
' doStuff
MsgBox "now put the cursor in the textframe.."
shp.Select

End Sub

Regards,
Peter T
 

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Similar Threads

Looping a Macro 4
Can I use VBA to assign Macro to Shape within a Group of Shapes? 1
How do I write a macro to increase the value of any cell by 1? 2
Simulate click of AutoSum doesn't work in 2007 8
How to change all cells with "zero" value into transparent, not bl 2
2 Files open - Paste to One 4
tab textbox by a macro 1
Maintaining Macros on a sheet when it is saved as a new workbook 2

Top