[zion87]

okshef, спасибо разобрался но появился вопрос

можете расшифровать

Код:

Sheets("База").Select 'переходим на лист база и
    Cells.Find(What:=Organiz, After:=ActiveCell, LookIn:=xlValues, LookAt:= _
    xlWhole, SearchOrder:=xlByColumns, SearchDirection:=xlNext, MatchCase:= _
    True, SearchFormat:=False).Activate 'ищем организацию

просто мне надо после того как выбрана Организ проверить ее наличие в файле "База учреждение.xls"
формат файла

Код:

СОШ 10	МКОУ "Средняя общеобразовательная школа № 10"	г. Новомосковск, ул. 1-ая Транспортная, д. 3	43523369	80.21.2

затем взять адрес и вставить в ячейку