dim RngColD as Range, Info as Variant, Info1 as Variant
Dim s as String
s = ""
Set RngColD = Range("D2", Range("D" & Rows.Count).End(xlUp))
Info = RndColD.Value
Info1 = RndColD.Offset(0,10).Value
For i = 1 to Ubound(info,1)
If info(i,1) = Range("A493").Value Then
If s = "" Then
s = Info1(i)
Else
s = s & "," & Info1(i)
End If
End If
Next i
Range("I493").Value = s
s = ""


in [Info = RndColD.Value] is giving and error something about "Objec
required

--
John2
-----------------------------------------------------------------------
John21's Profile: http://www.excelforum.com/member.php...fo&userid=3698
View this thread: http://www.excelforum.com/showthread.php?threadid=57042