How do I set a function key

[mwillis]

Trying to get input down to one key stroke, would like to set a function key to input time. Dave helped by informing me that current time can be captured by entering in CNTL+SHIFT+: Anyone know of a way to set a fuction key to these equivalent of these key strokes?

 

[kmiles]

On 2002-04-10 06:28, mwillis wrote:
Trying to get input down to one key stroke, would like to set a function key to input time. Dave helped by informing me that current time can be captured by entering in CNTL+SHIFT+: Anyone know of a way to set a fuction key to these equivalent of these key strokes?

' Workbook_Open function
Sub SetKeys()
Application.OnKey "{F2}", "mySub"
End Sub

' Workbook_BeforeClose function
Sub UnsetKeys()
Application.OnKey "{F2}"
End Sub

Sub mySub()
Application.SendKeys("^+:")
End Sub