> r = 1
>
> Does until cells(r,1) = End Report
> r = r +1
> The performs a control find command which looks for
> A field called "name" and paste it onto cells(a4) sheet2
> A field called "Address 1" and paste it onto cells (b4) sheet2
> etc
> etc
> The loop then runs again pasting 1 row down see below
> A field called "name" and paste it onto cells(a5) sheet2
> A field called "Address 1" and paste it onto cells (b5) sheet2
>
> Thank you in anticipation
>
> Marcus