I looked at your file, and the original macro I wrote will work fine with
the data you show. I have revised it slightly so it isn't dependent on the
values of Edit=Find. I highlighted a word in column G and ran the macro
and it put the values of cells that contained that word in column M,
starting in row 3.


Sub ABC()
Dim rng As Range, rng1 As Range
Dim i As Long, sAddr As String
Set rng = ActiveCell
Set rng1 = Range("B:F").Find(rng, _
LookIn:=xlValues, Lookat:=xlPart)
i = 3
If Not rng1 Is Nothing Then
sAddr = rng1.Address
Do
Cells(i, "M").Value = rng1
i = i + 1
Set rng1 = Range("B:F").FindNext(rng1)
Loop While rng1.Address < sAddr
End If
End Sub

--
Regards,
Tom Ogilvy


"ebraun01" wrote in
message ...

Can someone help? The post above stated that I was not specific enough
so I provided the file as an example thinking this would help. Anybody?


--
ebraun01
------------------------------------------------------------------------
ebraun01's Profile:
http://www.excelforum.com/member.php...o&userid=30340
View this thread: http://www.excelforum.com/showthread...hreadid=506336