Function F3 key assignment

[Kathy]

How would I assign a key stroke (in this case a monosorts
character of a checkmark)to the F3 key? It was there
before they gave me a new computer, now it won't work.
Thanks.

 

[Harlan Grove]

How would I assign a key stroke (in this case a monosorts
character of a checkmark)to the F3 key? It was there
before they gave me a new computer, now it won't work.

It requires programming. One way is

Sub Auto_Open()
Application.OnKey key:="{F3}", Procedure:="CheckMark"
End Sub

Sub Auto_Close()
Application.OnKey key:="{F3}"
End Sub

Sub CheckMark()
Application.ScreenUpdating = False
ActiveCell.Formula = "3"
ActiveCell.Font.Name = "Monotype Sorts"
End Sub

all inside a general VBA module.

 

[Kathy]

Thanks, I'll give it a try.

-----Original Message-----
...

It requires programming. One way is

Sub Auto_Open()
Application.OnKey key:="{F3}", Procedure:="CheckMark"
End Sub

Sub Auto_Close()
Application.OnKey key:="{F3}"
End Sub

Sub CheckMark()
Application.ScreenUpdating = False
ActiveCell.Formula = "3"
ActiveCell.Font.Name = "Monotype Sorts"
End Sub

all inside a general VBA module.

--
Never attach files.
Snip unnecessary quoted text.
Never multipost (though crossposting is usually OK).
Don't change subject lines because it corrupts Google newsgroup archives.
.