PAste value only for Ctrl -V

In this workboook:

Private Sub Workbook_Open()

Application.OnKey "^v", "DoMyPaste"

End Sub

In module :

Public Sub DoMyPaste()

On Error Resume Next

ActiveSheet.PasteSpecial Format:=Text, Link:=False, DisplayAsIcon:=False

Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False

End Sub