xPath = Application.ActiveWorkbook.Path


--
---
HTH

Bob


(there's no email, no snail mail, but somewhere should be gmail in my addy)



wrote in message
...
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