G
Guest
This gets me the file name but need the path seperate
Path = Left(ActiveWorkbook.FullName, Len(ActiveWorkbook.FullName) - _
InStrRev(ActiveWorkbook.FullName, Application.PathSeparator))
Path = Left(ActiveWorkbook.FullName, Len(ActiveWorkbook.FullName) - _
InStrRev(ActiveWorkbook.FullName, Application.PathSeparator))