Attribute VB_Name = "CopyValues"
Option Explicit

Public Sub CopyValue()
Attribute CopyValue.VB_ProcData.VB_Invoke_Func = " \n14"
    Dim DataObject As New DataObject
    
    DataObject.SetText Selection.Value, 1
    DataObject.PutInClipboard
    Application.OnKey "^j", "CopyValueOff"
    
End Sub

Public Sub CopyValueOn()
Attribute CopyValueOn.VB_ProcData.VB_Invoke_Func = "j\n14"
    
    Application.OnKey "^c", "CopyValue"
    Application.OnKey "^j", "CopyValueOff"

End Sub

Public Sub CopyValueOff()
    
    Application.OnKey "^c"
    Application.OnKey "^j", "CopyValueOn"

End Sub