Quote:
Originally Posted by absthechatter
Next lngLoop
Sheets("CCReport").Activate
Columns("E:F").Select
Application.CutCopyMode = False
Selection.Cut
Range("B1").Select
Selection.Insert Shift:=xlToRight
Range("b2").Select
Selection.Delete Shift:=xlToLeft
Selection.Delete Shift:=xlToLeft
Range("B1").Select
Selection.Delete Shift:=xlToLeft
Selection.Delete Shift:=xlToLeft
This works absoloutely fine on my home computer (Office 2003), but whenever I try it at work (Office 2000), I get the information cannot be pasted because the cut area and paste area are not the same size (Run-time error '1004'.
Is this just a problem with earlier versions of Excel, or is there a way i can fix it so it runs on my work computer. 
Many thanks
Abs |
I've changed the bold lines above, does that work?
It's to do with the fact that according to excel 2000 you're trying to past two columns (E&F) into one (B) if you select the cell rather than the column before you paste it should insert correctly
I use macros all the time, but it's been a while since I've used excel2000