"mike allen" wrote in message
...
i need to clarify. the top code in original message does NOT work, while
the bottom code does work. i have found a way to get the top to work, but
not sure why it works. i did the following to get the one line code to
work:
Sheets("sheet1").Range(Cells(1, 1), Cells(3, 3)) =
Range(Sheets("sheet2").Cells(1, 1), Sheets("sheet2").Cells(3, 3)).Value

while the following does not work:
Sheets("sheet1").Range(Cells(1, 1), Cells(3, 3)) =
Sheets("sheet2").Range(Cells(1, 1), Cells(3, 3)).Value

Try this:
Sheets("Sheet6").[N24:P26] = Sheets("Sheet2").[H238:J240].Value
or this:
Sheets("Sheet6").Range("N24:P26") =
Sheets("Sheet2").Range("H238:J240").Value

They both work with Excel 2003

Bruno