PasteSpecial method of Worksheet class failed

[Anonymous]

I'm getting a Pastespecial method of worksheet class failed error and I'm not sure why since the macro had only just started to fail after working for the previous 6 months.

Here is what the code looks like where it is failing:

SUB Copysheet(xl,docsheet,chart)

          Set obj = ActiveDocument.Sheets(docsheet).SheetObjects(chart)

          obj.copytabletoclipboard true

          xl.ActiveSheet.PasteSpecial -4163,-4142,0,0

END SUB

Any ideas as to what the problem could be?