hi Howard,

Range("A7:B7").Value = Range(c.Offset(7, 0).Resize(1, 2).Address).Value

isabelle

Le 2013-09-26 21:49, Howard a écrit :

Isn't there a plain jane 'one liner' to past special values?
This works to the .Resize(1, 2).Copy then fails.

Thanks.
Howard

For Each c In ActiveSheet.Range("B10", ActiveSheet.Range("B10").End(xlToRight))
If c = FiMo Then
c.Offset(7, 0).Resize(1, 2).Copy Range("A7").PasteSpecial(xlPasteValues)
Exit Sub
End If
Next