for each c in intersect(activesheet.usedrange, [f:f])
if c.value = 123 then cells(c.row,1).copy
[z65536].end(xlup).offset(1,0)
next


--
colofnature
------------------------------------------------------------------------
colofnature's Profile: http://www.excelforum.com/member.php...o&userid=34356
View this thread: http://www.excelforum.com/showthread...hreadid=545452