How to simulate a click into a textbox (shapes)

[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

 

[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