select [a1]cell when hotkey(ctrl+q) pressed, after userform load
 

i want following.
first userform load and activate in modaless
and then press the ctrl+q then select "a1" cell on the sheet.
my code is following

sub te()
userform1.show 0
Application.OnKey "^q", "sbow"
end sub

sub sbow()
activesheet.[a1].select
end sub

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