Yes Celt,
Even if I'm using excel for years I sometime learn so basic things !...
I've done what you said but also renamed "MyCtrlV" in "MyPaste" and
changed the macro :
Sub MyPaste()
' Will act like Copy paste Value
If Application.CutCopyMode Then
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone,
SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
End If
End Sub
For "ThisWorkbook" it is now including the following code :
Private Sub Workbook_Open()
Application.OnKey "^v", "MyPaste"
Application.OnKey "{RETURN}", "MyPaste"
End Sub
Private Sub Workbook_Activate()
Application.OnKey "^v", "MyPaste"
Application.OnKey "{RETURN}", "MyPaste"
End Sub
Private Sub Workbook_Deactivate()
Application.OnKey "^v"
Application.OnKey "{RETURN}"
End Sub
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Application.OnKey "^v"
Application.OnKey "{RETURN}"
End Sub
For the menus I don't know when I'll have some time to work on it. If
someone already have the solution on hand...
Benoit
*** Sent via Developersdex
http://www.developersdex.com ***