Application.onkey

Tengo dos preguntas: deseo que la hora este activa en excel. Otra.
Tengo el siguiente codigo en un modulo:
Sub abrir()
Application.OnKey "{F2}", "llamar"
End Sub
Sub llamar()
UserForm2.Show
End Sub
Sub ubicacelda()
celda = ActiveCell.Address
UserForm2.Caption = "MAS OPCIONES" & " " & "Celda Activa:" & " " & celda
UserForm2.TextBox3.Text = celda
End Sub
AL abrir el libro:
Private Sub Workbook_Open()
'ThisWorkbook.IsAddin = False
Worksheets("INVENTARIO").ScrollArea = "A1:Q122"
Call abrir
End Sub
Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
ubicacelda
End Sub
El problemas es que estoy trabajando normal, pasado cierto tiempo, sale error en excel y se cierra o intento guardar y se cierra.
Quiero saber que estoy haciendo mal. El formulario al momento de activarse no tiene codigo alguno. ¿Favor ahora quien podrá salvarme?