вставка название файла в ячейку листа

[segail]

Сообщение от Казанский

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

Function Папка()
  Application.Volatile
  Папка = Mid(ThisWorkbook.Path, InStrRev(ThisWorkbook.Path, "\") + 1)
End Function

Без макроса, это типа вытягивание данные из функции в модуле? Как я понял таким-же способом можно и имя файла отражать, поэтому поискал и нашел функцию определения имени Книги, я так думаю имя книги и имя файла, ни что иное как одно имя, но там отражается расширение. Расширение как-то можно убрать?

Public Function ИМЯКНИГИ() As String
    ИМЯКНИГИ = ActiveWorkbook.Name
End Function

[Казанский]

Public Function ИМЯКНИГИ() As String
Dim n&
    ИМЯКНИГИ = ThisWorkbook.Name
    n = InStrRev(ИМЯКНИГИ, ".")
    If n Then ИМЯКНИГИ = Left$(ИМЯКНИГИ, n - 1)
End Function

[segail]

Казанский Благодарю!