Copy range using offset range value

[Guest]

Hello,
THe following code works on Excel 2002 but seems to fail on another computer
with Excel 2003

Dim TargetCell1 As Range
Set TargetCell1 = Range("TargetCell1")
Range(TargetCell1, TargetCell1.Offset(Range("MaxNoTerritory").Value, 0)).Copy
Range("TargetDisplayCell1").PasteSpecial Paste:=xlPasteValues,
Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False

The error message is
Run-time error '-2147417848 (80010108)':
Method 'PasteSpecial' of object 'Range' failed

and in the debug the following appears
Range("MaxNoTerritory").Value = Method 'Range' of object'_Global' failed

Can you help?
Thanks in advance

 

[Tom Ogilvy]

If the code is in a sheet module and the named ranges don't appear on that
sheet, then you would probably come up with an error. The named ranges
would need to be qualified with a reference to the sheet where they belong.

As far as the code, if it were in a general module, it should work in xl97
to xl2003 if all the same workbook were used in each.

 

[Guest]

Thanks Tom. The code is in a general module. We are talking about the same
workbook on two different computers. I cannot explain what is going on.
Thanks anyway for taking the time to answer.