ActiveSheet.Paste error in Excel 2003

[Oren]

This code worked perfectly fine on Excel XP, but after
upgrading to Excel 2003 - I got an error (Paste method of
range class failed). When I check out the sheet, it
really does the paste job, but for some reason the error
pops up and stops the macro. Does anyone have a clue?

....
Sheets("All").Select
Selection.AutoFilter Field:=1
Selection.AutoFilter Field:=3
Selection.AutoFilter Field:=1, Criteria1:=section
Range("A1").Select
Range(Selection, ActiveCell.SpecialCells
(xlLastCell)).Select
Selection.Copy
Sheets(section).Select
Range("A1").Select
ActiveSheet.Paste <-------------- Error here!!!
Range("A3").Select
....

 

[Jim Rech]

No idea, Oren, the code works fine for me in Excel 2003. Sorry.

--
Jim Rech
Excel MVP
| This code worked perfectly fine on Excel XP, but after
| upgrading to Excel 2003 - I got an error (Paste method of
| range class failed). When I check out the sheet, it
| really does the paste job, but for some reason the error
| pops up and stops the macro. Does anyone have a clue?
|
| ...
| Sheets("All").Select
| Selection.AutoFilter Field:=1
| Selection.AutoFilter Field:=3
| Selection.AutoFilter Field:=1, Criteria1:=section
| Range("A1").Select
| Range(Selection, ActiveCell.SpecialCells
| (xlLastCell)).Select
| Selection.Copy
| Sheets(section).Select
| Range("A1").Select
| ActiveSheet.Paste <-------------- Error here!!!
| Range("A3").Select
| ...

 

[Patrick Molloy]

try

Sheets(section).Range("A1").PasteSpecial xlAllValues

note that there's reall no need to actiavate & select to copy data

 

[Guest]

First, thanks guys for the responses - I really appreciate it
I tried the code line you suggested, Patrik, but I get the same error (just "SpecialPaste method failed" instead of "Paste Method failed"). Can you think maybe what can cause an error that will prevent a paste to function