Getting folder address of where excel file is run from

[Jooky68]

Is there a quick easy way to get the folder address for the excel file that I am running. I am trying to get the address while im running the excel file.

 

[dan1967]

Try:

Dim fso, fName, fPath
Set fso = CreateObject("Scripting.FileSystemObject")
Set fName = ActiveWorkbook
fPath = UCase(fName.Path)
MsgBox fPath

You can then have a worksheet cell, msgbox, or any other control that can accept text have this value passed to it.

Dan.

 

[combo]

Another way - use excel Path property:
Workbooks(i).Path
or
Activeworkbook.Path

combo