Часть макроса задать значением ячейки

[bygaga1]

Народ как сделать чтобы часть макроса задавалась
значением ячейки (например, путь к файлу или часть пути)
например в ячейке F5 слово "USER" (без кавычек)
поменять в коде VBA вместо admin

Private Sub CommandButton4_Click()

    AddIns.Add Filename:= _
        "C:\Documents and Settings\admin\Application Data\Microsoft\AddIns\sumpropua.xla"
    AddIns("Сумма прописью").Installed = True

End Sub

[doober]

Можно так

Private Sub CommandButton1_Click()

    AddIns.Add Filename:= _
       Replace("C:\Documents and Settings\admin\Application Data\Microsoft\AddIns\sumpropua.xla", "admin", Range("F5"))
    AddIns("Сума Прописом").Installed = True

End Sub

[kuklp]

Сереж, наверное все же:

Private Sub CommandButton4_Click()
    AddIns.Add Filename:= _
        "C:\Documents and Settings\" & [f5] & "\Application Data\Microsoft\AddIns\sumpropua.xla"
    AddIns("Сумма прописью").Installed = True
End Sub

[doober]

Серега,что то я торможу в последнее время,жара влияет.

[bygaga1]

kuklp, работает, но если ошибка, как вызвать диалоговое окно из сообщением "нет такого пользователя"?

[kuklp]

Вообще обработка ошибок - отдельная тема. Да и ошибки могут быть разными... Но ладно, смотрите:

Private Sub CommandButton4_Click()
    On Error GoTo CommandButton4_Click_Error
    AddIns.Add Filename:= _
        "C:\Documents and Settings\" & [f5] & "\Application Data\Microsoft\AddIns\sumpropua.xla"
    AddIns("Сумма прописью").Installed = True
    On Error GoTo 0
    Exit Sub
CommandButton4_Click_Error:
    MsgBox "Error! User not found!"
End Sub

[bygaga1]

Сообщение от kuklp

Вообще обработка ошибок - отдельная тема.

Знаю подумал что ради одной ошибки не стоит создавать новую тему...
СПАСИБО БОЛЬШОЕ за помощь!
kukIp +
doober +

[bygaga1]

Сообщение от doober

Серега,что то я торможу в последнее время,жара влияет.

ниче, бывает