Вывод результата работы макроса в соседнюю ячейку.

[jumafe]

Добрый день.


Есть такой макрос:

Sub ExcelSearch()

Dim fname As String
Dim result As Integer
With Application.FileDialog(1)
.Title = "Выберите Счет."

.InitialFileName = "v:\счета\2012" 'default path'
.AllowMultiSelect = False
.Filters.Clear
result = .Show

If result = 0 Then Exit Sub
fname = Trim(.SelectedItems.Item(1))
End With



ActiveCell = fname


End Sub

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

Заранее спасибо

[EducatedFool]

вместо ActiveCell = fname
напишите [d4] = fname
где d4 - адрес ячейки, в которую хотите вставить имя файла

Это если у вас одна кнопка.
Если же вы планируете наплодить множество кнопок, то нужно другое решение
(выкладывайте файл с примером)

[jumafe]

да, в каждой строке такая кнопка.