Hi Reader
How to get Properties Generate tab "Location" value ?
What location is file saved directory.

Below coding just return file name only.
Sub FileName()
Dim xname As String
xname = Application.ActiveWorkbook.Name

xname = Application.InputBox("File Information", "Detail", xname)

End Sub


moonhk