Error 1004 - paste method failed

[XLSqry]

Below macro works on some PC and on others PC shows the error message (it fails on Activesheet.Paste but when you press F8 it works ok, just won't execute in one go):

Run-time error 1004:
Paste method of Worksheet class failed


offset_Increment = Range("r5")
ActiveSheet.Shapes.Range(Array("Mark 1")).Select 'this is drawing tool object that we try to move
Selection.Cut
Sheets("Database Quality").Range("C5").Select
ActiveSheet.Paste
Selection.ShapeRange.IncrementLeft 44.3181889764 + (381.1362992126 * offset_Increment)


Thanks for your help

 

[sijpie]

Please use [code ] .... [/code] tags around your code.

offset_Increment = Range("r5")
ActiveSheet.Shapes.Range(Array("Mark 1")).Select 'this is drawing tool object that we try to move
Selection.Cut
Sheets("Database Quality").Range("C5").Paste

Selection.ShapeRange.IncrementLeft 44.3181889764 + (381.1362992126 * offset_Increment)