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

"Alex St-Pierre" wrote in message
...
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

--
Alex St-Pierre