Compile Error on Paste

[jstevens]

I'm encountering a compile error using the following code. The error message I'm receiving is: "Compile Error - Expected: End of Statement".

untitled.png

As far as I can tell, it should work.

Thank you for taking a look,
John

[HansV]

You're mixing two different operations in one instruction.

You can combine a copy and a normal paste operation in one instruction:

oCurWB.Sheets("Sheet1").Range("A10").CurrentRegion.Offset(1, 0).Copy Destination:=oNewWB.Sheets("Sheet1").Range("A8")

But for Paste Special you need to perform the copy and pastes operation in separate instructions:

oCurWB.Sheets("Sheet1").Range("A10").CurrentRegion.Offset(1, 0).Copy
oNewWB.Sheets("Sheet1").Range("A8").PasteSpecial Paste:=xlPasteValues

(I omitted the other three arguments since you provided the default values)

As you have found out, you can't combine these into one instruction.

[jstevens]

Thanks Hans,

I came to that conclusion but needed to hear it from someone else.

Regards,
John