Just off the top of my head, you need quote marks around the range's name in
the Range call...

Range(Cells(CCC - 1, 11), Cells(CCC - 1, 14)).Copy Range("Myrange")

--
Rick (MVP - Excel)



"FIRSTROUNDKO via OfficeKB.com" <u15639@uwe wrote in message
news:a741f16650d8b@uwe...
I can "Set Range" then "Copy" then "select" then paste as below

If Cells(CCC - 1, 1).Value = Cells(CCC, 1).Value Then
Set MyRange = Cells(CCC, 100).End(xlToLeft).Offset(0, 1)
Range(Cells(CCC - 1, 11), Cells(CCC - 1, 14)).Copy
MyRange.Select
ActiveSheet.Paste

For speed I do not want donot want to select but the following code errors
out

Range(Cells(CCC - 1, 11), Cells(CCC - 1, 14)).Copy Range(Myrange)

--
Message posted via http://www.officekb.com