мне нужно вывести в окно сообщения адреса всех найденных ячеек.
код который находит адреса ячеек

With xlWbkEx.Worksheets(l).Cells
    Set c = .Find(What:=Poisk1, lookin:=xlValues, LookAt:=xlPart)
    If Not c Is Nothing Then
        firstAddress = c.Address
        Do
            Debug.Print c.Address
            Set c = .FindNext(c)
        Loop While Not c Is Nothing And c.Address <> firstAddress
    End If
End With

на месте

Debug.Print c.Address

должна быть процедура (цикл) которые по мере нахождения ячеек присваивают переменной (N) дополнительный индекс (N1, N2, N3...), а потом все эти переменные (от первой до последней) выводятся в сообщении

http://www.sql.ru/forum/1143978/sozdanie-massiva-adresov-yacheek-excel-pri-poiske-znacheniy-iz-access