I could duplicate your findings. (I got different lengths, though.)

But maybe:

rngMine.Copy
rngOther.PasteSpecial Paste:=xlPasteValues

would work just as well.

Dan Mullen wrote:

The code looks like this:
Set rngMine = activesheet.range("a1:a5297")
Set rngOther= Worksheets("Sheet2").range("g1:g5297")
rngOther.value = rngMine.value

I recently moved to XP and have been forced to adjust some code that ran fine under NT and 2000.
The one that is driving me crazy is using rngOther.value = rngMine.value.
The line works until the length of the input [rngMine] is 1606.
Then I get "Run-time error '1004' Application-defined or object-defined error."
The maximum length that will propogate under setting one range equal to another is 911, I ran a series of tests and the error occurs at when the input length is 912 or greater.
I am doing this across sheets [can't use fillacrosssheets as the columns on the receiving sheet are different from the input sheet columns.]

HELP!
and thank you!
Dan

--

Dave Peterson