I guess when you said:

and copies the values from the row in colom B to another
sheet, range D1.

I missed the term Userform.

dim v() As Variant
dim rng as Range
Dim sAddr as String
redim v(0 to 0)
with Worksheets("Sheet1").columns(1)
set rng = .find("apples")
if not rng is nothing then
sAddr = rng.Address
do
v(ubound(v)) = rng.offset(0,1)
redim preserve v(0 to ubound(v) + 1)
set rng = .FindNext(rng)
Loop while rng.address < sAddr
Redim preserve v(0 to ubound(v)-1)
Userform1.ListBox1.List = v
end if



--
Regards,
Tom Ogilvy



"jgmiddel" wrote:


I know that function, Tom. That is not a solution. I have to use the
data in a VBA userform.


--
jgmiddel
------------------------------------------------------------------------
jgmiddel's Profile: http://www.excelforum.com/member.php...o&userid=32714
View this thread: http://www.excelforum.com/showthread...hreadid=535590