How to simulate a click into a textbox (shapes)

  • Thread starter Thread starter Alex St-Pierre
  • Start date Start date
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
 
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
 
Back
Top