View Single Post
  #2   Report Post  
Posted to microsoft.public.excel.programming
Jim Thomlinson Jim Thomlinson is offline
external usenet poster
 
Posts: 5,939
Default How do I determine the file path with the file name at the end

MsgBox ThisWorkbook.Path & vbCrLf & ThisWorkbook.Name
--
HTH...

Jim Thomlinson


"QuietMan" wrote:

This gets me the file name but need the path seperate

Path = Left(ActiveWorkbook.FullName, Len(ActiveWorkbook.FullName) - _
InStrRev(ActiveWorkbook.FullName, Application.PathSeparator))
--
Helping Is always a good thing