大変勉強になります。自身のセルを参照するというのは重要なポイントですね! ちょうど同じことをやろうとしていて、ユーザ定義関数で Function FolderPath() As String FolderPath = ThisWorkbook.Path End Function Function FullPath() As String FullPath = ThisWorkbook.Path & "\" & ActiveWorkbook.Name End Function なんかを作ってみたところです。