run time error '1004'

[michaelt23]

I have a macro someone else created and has since left the company, and when I try to run it I get this, any suggestions?

Run-time error '1004':

PasteSpecial method of range class failed


Here is a copy of the code where it is erroring at.

Selection.PasteSpecial Paste:=xlPasteAllExceptBorders, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False



IF you need more of the code let me know.

Thanks,
Michael

 

[michaelt23]

Dan,

I replaced my code with yours and I get the same error, so I put the msgbox selection.address in and it shows $A$1 this time.

 

[Norie]

michael

Did you try my suggestion?

 

[michaelt23]

Yes, I did with no luck.

 

[Norie]

michael

Like I said the code needs an overhaul.

Also, did you see my comments regarding selecting/activating?

That's probably at the root of the problem.

PS what code of mine did you try?

 

[michaelt23]

Workbooks("ManExcepReport78.xls").Sheets("St 8 No Date").Range("A1").PasteSpecial Paste:=xlPasteAllExceptBorders

 

[dantb]

It might be the version of Excel that I am using why it worked (2002 SP2), I actually copied the code I replied with, put It in a module and run the code from workbook(ASR78), I did not receive any errors and ended up with a new book called ManExcepReport78.xls.

 

[michaelt23]

I am using 2003 SP1

 

[Norie]

This is not a version issue, there's nothing in the code that is version specific.

I'm pretty sure the problem is, or is at least connected to, all the activating and selecting.

Also there are a lot of unqualified references in the code.

If you just want to stick with the specific code you might get away with putting this at the start of the code.

On Error Resume Next

But as far as I'm concerned that's just a quick fix.

But if it works, it works.

 

[michaelt23]

Norie,

That did fix the problem.

 

[Norie]

michael

Glad it worked.

But please remember this is only a quick fix, all that does is ignore any errors.