Hi Gys,

I am playing with a macro and I am getting an error message and I have tried
everything to fix it but have no idea how to fix it!!

The error that I receive is:

"Paste special method of Range class failed"


I get this error at the Paste Special Line.
"Selection.PasteSpecial Paste:=xlPasteAll,
Operation:=xlPasteSpecialOperationNone, SkipBlanks:= _
False, Transpose:=False"

Can anyone help me.

What I am trying to do is to copy a row from 1 spreadsheet to another
spreadsheet using the paste special method. I just keep getting an error!!

Damm thing!

Cheers,

Thanks for you help!!


My code is:

Dim myrange As Range
Dim distination As Range

Set myrange = Application.InputBox("Select cells...", , , , , , , 8)

Range(myrange.Address(False, False)).Select


'Range("A10:AG10").Select this is the
original line


Selection.Copy
Windows("Master.xls").Activate


Set distination = Application.InputBox("Select cells...", , , , , , , 8)


Range(distination.Address(False, False)).Select


'Range("A11").Select this is the original line

Selection.PasteSpecial Paste:=xlPasteAll,
Operation:=xlPasteSpecialOperationNone, SkipBlanks:= _
False, Transpose:=False

ActiveSheet.Paste Link:=True

Range("A12").Select

End Sub