Copy range using offset range value
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.
--
Regards,
Tom Ogilvy
"caroline" wrote in message
...
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
--
caroline
|