Обработка множества значений ячеек

[Haart]

Добрый день!

Передо мной стоит следующая задача: необходимо, чтобы пользователь заносил цены на продукцию конкурентов в базу данных цен. Для её решения написал макрос, суть которого заключается в следующем:

Пользователь вводит название компании посредством внесения данных через InputBox (выбора ячейки). Далее название компании вставляется в адресную строку и по ней приложение открывает файл, содержащий информацию о моделях и ценах определённой компании, и vlookup’ом подтягивающий эти данные в общую базу данных.

Проблема заключается в следующем – при выделении диапазона ячеек, каждая из которых содержит название компании, макрос не может определить, название какой именно компании нужно вставить в адресную строку, таким образом невозможно определить, какой файл открывать.

В связи с этим, хотелось бы преобразовать код таким образом, чтобы в случае выделения диапазона ячеек, каждая из которых содержит название компании, каждое значение обрабатывалось бы одно за другим.
Предполагаю, что для этого необходим цикл, но, к сожалению, не могу написать требуемый код.
Подскажите, пожалуйста, что для этого нужно сделать?

Заранее спасибо за помощь.

Пример базы данных цен и файлов, из которых подтягивается информация в приложении.

[ikki_pf]

две строки чуть поменял, несколько добавил
новые и измененные строки - с комментариями из звездочек

в работе не проверял

[Haart]

Большое спасибо!

Всё работает как и ожидалось.