Well, it appears to me, you are trying to transpose more than 256 columns
into a spreadsheet that can only handle 256 columns (until Excel 12.)

--
Kevin Vaughn


"Shawn" wrote:

Why does this code work:

Sheets("CDPSD").Range("E1:E79").Copy
Sheets("CDPTR").Range("A2").PasteSpecial
Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=True

and this one not:?

Sheets("CDPSD").Range("B1:B363").Copy
Sheets("CDPTS").Range("A2").PasteSpecial Paste:=xlValues,
Operation:=xlNone, SkipBlanks:= _
False, Transpose:=True


The 2nd code generates an error that says it can't paste becuase the
destination is not the same size? Why does it work once and not later? How
can I fix this?


--
Thanks
Shawn