hi,
per your code you are selecting a range and trying to
insert it into a row.(even though you are shifting. excel
is seeing the row and displays error before it gets to the
insert) that is your problem.
where as that may work in 2k, the same procedure doesn't
seem to work in 97. that is a common problem when writing
code in i version and running it in another.
another thing. your code is not pasting. it is inserting.
there is a difference.
i would re-write the code to use the copy and paste.
wsIYM.Range(sRange).Select
Activesheet.paste
Application.CutCopyMode = False

-----Original Message-----
Hi,
I am really pulling my hair out.
I am getting the following error:
"The information cannot be pasted because the Copy area
and the paste
area are not the same size and shape. Try one of the
following:
1.) Click a single cell, and then paste.
2.) Select a rectangle that's the same size and shape,
and then paste.

The thing is, the code works fine on Excel 2002, but
errors only on Excel 97
- unfortunately we have a mixed environment that I can't
do anything about.
The same sheets are being used, so surely the same should
occur in both
versions!?

Has anyone come accross this before? Needless to say

The code is:
'4. Copy the source range
wsWorking.Range(sWorkingRange).Copy
Debug.Print wsWorking.Range(sWorkingRange).Rows.Count

'5. Paste / insert the range into the target front sheet
wsIYM.Activate
sRange = "A" & iCurrentInsertPoint & ":R" &
iCurrentInsertPoint
wsIYM.Range(sRange).Select
Selection.EntireRow.Insert shift:=xlDown '##Error This
line on Excel 97 only


Many thanks in advance.
Andy
.