VBA PasteSpecial from different workbook!

Hi!
I have a problem with special function 'PasteValues' are assigned to my regular paste functionality in Excel. It all works perfect as long as I stay in the same workbook but if I copy a value from a different workbook and try to paste this in the one where I have all  my code NOTHING is being copied. I even at one point tried to access the clipboard but that didn't work either... I have tried several options and none works so help would be apprecciated. Here's what I have so far.

From my module:
Public Sub PasteValues()
Application.ScreenUpdating = False

    On Error Resume Next
    Selection.PasteSpecial Paste:=xlPasteValues
   
    Application.CutCopyMode = False
    Application.ScreenUpdating = True
End Sub

From Thisworkbook:
Private Sub Workbook_Activate()

Dim XLApp As Application
Set XLApp = Application

    With XLApp
        'Disable CUT
        .CommandBars("Cell").FindControl(ID:=21).Enabled = False
        .CommandBars("Row").FindControl(ID:=21).Enabled = False
        .CommandBars("Column").FindControl(ID:=21).Enabled = False
        .CommandBars.FindControl(ID:=21).Enabled = False
        .CellDragAndDrop = True
        .OnKey "^x", ""
        .OnKey "^+X", ""

        'Only paste values
        .CommandBars("Cell").FindControl(ID:=22).OnAction = "PasteValues"
        .CommandBars("Row").FindControl(ID:=22).OnAction = "PasteValues"
        .CommandBars("Column").FindControl(ID:=22).OnAction = "PasteValues"
        .CommandBars.FindControl(ID:=22).OnAction = "PasteValues"
        .CommandBars("Cell").FindControl(ID:=755).Enabled = False
        .CommandBars("Row").FindControl(ID:=755).Enabled = False
        .CommandBars("Column").FindControl(ID:=755).Enabled = False
        .CommandBars.FindControl(ID:=755).Enabled = False
        .OnKey "^v", "PasteValues"
        .OnKey "^+V", "PasteValues"
    End With
   
End Sub

Private Sub Workbook_Deactivate()

Dim XLApp As Application
Set XLApp = Application
 
    With XLApp
        'Restore Cut and Paste Special
        .CellDragAndDrop = True
        .CutCopyMode = True
        .OnKey "^x"
        .OnKey "^+X"
        .CommandBars("Cell").Reset
        .CommandBars("Row").Reset
        .CommandBars("Column").Reset
        .CommandBars.FindControl(ID:=21).Reset
        .CommandBars.FindControl(ID:=22).Reset
        .CommandBars.FindControl(ID:=755).Reset
        .OnKey "^v"
        .OnKey "^+V"
    End With
   
End Sub