Many thanks for that and for coming back so quickly.

Graham

Gary''s Student wrote:
Dim mesage as string
mesage=""

and then after the:

Set C = .FindNext(C)

insert something like:

mesage=mesage & C.row & Chr(10)

and near the end just MsgBox(mesage)