Associar uma tecla de Função a um procedimento

Se pressionarmos a tecla de função F3, aparece, na célula pretendida, o resultado do Código a que a tecla está associada ( no exemplo, "Blog EXCELer"):

O Código:

Public Ops As String

Sub Auto_Open()

    Application.DisplayAlerts = False
    Application.OnKey "{F3}", "InsereNome"

End Sub

Sub InsereNome()

    Ops = Nome()
    ActiveCell = Ops
    
End Sub

Public Function Nome()

    Nome = "Blog EXCELer"
    
End Function