Private Sub CommandButton3_Click()
Application.OnKey "{F3}", "uMain.ddd"
End Sub
Sub ddd()
Me.textbox1.SetFocus
End Sub

the upper source does not work.
i want to make a hotkey(shortcut) the specific textbox control.

*** Sent via Developersdex http://www.developersdex.com ***

Try:

Private Sub CommandButton3_Click()
Application.OnKey "{F3}", "ddd"
End Sub

Sub ddd()
ActiveSheet.Shapes("TextBox1").Select
End Sub

Sub ResetKey()
Application.OnKey "{F3}", ""
End Sub