Sub ABCD()
Dim rng As Range, rng1 As Range
Dim i As Long, sAddr As String
Dim s as String
Set rng = ActiveCell
Set rng1 = Range("A:F").Find(rng, _
LookIn:=xlValues, Lookat:=xlPart)
If Not rng1 Is Nothing Then
sAddr = rng1.Address
Do
s = s & rng1.Value & vbNewLine
Set rng1 = Range("A:F").FindNext(rng1)
Loop While rng1.Address < sAddr
End If
s = left(s,len(s)-len(vbNewLine))
cells(activecell.Value,"K").Value = s
End Sub

--
regards,
Tom Ogilvy


"ebraun01" wrote in
message ...

This is a very good start in the right direction and really appreciate
your efforts. What I would like to so is run the macro and have it copy
all matching cells into one cell. I have attached a file that gives an
example of what I'm talking about. The copied files are in column K in
this example.

This would keep me from running the macro many times and cut and
pasting each match into a single cell.

Again, thanks for your assitance, this is a life saver.


+-------------------------------------------------------------------+
|Filename: Daily Double 0212 - 0218 test.zip |
|Download: http://www.excelforum.com/attachment.php?postid=4363 |
+-------------------------------------------------------------------+

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