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 ***