PAste value but not paste special

Private Sub Workbook_WindowActivate(ByVal Wn As Excel.Window)

Application.CommandBars("Edit").Controls.Item("Paste").OnAction = "New_paste"

Application.CommandBars("Cell").Controls.Item("Paste").OnAction = "New_paste"

End Sub

Private Sub Workbook_WindowDeactivate(ByVal Wn As Excel.Window)

Application.CommandBars(1).Reset

End Sub

Sub New_paste()

ActiveCell.PasteSpecial XlValues

End Sub