VBA code(s) for 1st sheet to COPY with single click, and 2nd one to PASTE with single click

[tasic89]

Title says it all.. I found one code for pasting only values with a click

Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
    On Error Resume Next
    Target.PasteSpecial xlPasteValues
    Application.CutCopyMode = True
End Sub

Other code is for copy with just a click on desired cell

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Not Intersect(Target, Range("xxxx")) Is Nothing Then
        Target.Copy
    End If
End Sub

*xxx is single cell or a range.

But if I apply those two codes, my Excel is glitching until "out of space stack" error comes out.

Is there any way for this to work for 2 different sheets (one have cell which is concatenating two cells, and than i want that result pasted in second sheet)

 

[offthelip]

Remove the first sub from the workbook code and put it in the Worksheet_selectionchange module of the worksheet where you want the result pasted. NOT the worksheet with the second routine