Hi Tom,

I thought there was a way to do it directly but ... I got out of the
woods with this:

Sub LaunchVBAToolbar()
Application.CommandBars("Visual Basic").Visible = True
End Sub

Sub ShortCutToVBAToolBar()
Application.OnKey "^+{v}", "LaunchVBAToolbar" 'ctrl + shift + v
End Sub

Sub ResetShortCutVBAToolbar()
' To revert to default keypress result
Application.OnKey "+^{v}", ""
End Sub

Thanks, Sige


"NOSPAM" to be removed for direct mailing...

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