View Single Post
  #2   Report Post  
Posted to microsoft.public.excel.programming
Tom Ogilvy Tom Ogilvy is offline
external usenet poster
 
Posts: 27,285
Default 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