help me.. can i program keyboard F1, F2 etc with word to put in exel???

'/-------------------------------------------------------/
'Purpose of Macro:
'assign new Action to the Function F2 key
'not case sensitive - F2 Function key

sub AssignKey_F2( )
Application.OnKey "{f2}", "Example_F2"
end sub
'/-------------------------------------------------------/
'Purpose of Macro:
'performs desired action for F2 key

sub Example_F2( )
activecell.value = "DEP"
end sub
'/-------------------------------------------------------/
'Purpose of Macro:
'set F2 key back to default

sub AssignKeysBack2Default( )
Application.OnKey "{f2}"
end sub
'/-------------------------------------------------------/

--
HTH,
Gary Brown
(E-Mail Removed)
If this post was helpful to you, please select ''YES'' at the bottom of the
post.



"Steven" wrote:

> help me.. can i program keyboard F1, F2 etc with word to put in exel???