On May 19, 1:54 am, "Per Jessen" wrote:
Hi Alan

Look at this macro

Sub Find_Copy()

Sheets("Sheet3").Select
StartCell = "A1" ' First Cell with random number

For c = 0 To 9
rNum = Range(StartCell).Offset(c, 0).Value
With Sheets("Sheet2")
Set found = .Columns("A").Find(what:=rNum)
.Rows(found.Row).Copy Sheets("Sheet1").Range("A2").Offset(off, 0)
off = off + 1
End With
Next
End Sub

Regards,
Per

Thanks, that looks like it will do it. I may later look at other
things for this, but that's another day.

I never did work with VBA much, I can take something similar to what I
want and modify it but ...

Thanks again.
Alan