Sub GetPartOfFilePath() Dim myPath As String Dim myFile As String Dim originalFile As String Dim NewFile As String 'Retrieve ActiveWorkbook's File Path (Displayed in Immediate Window [ctrl + g]) originalFile = ActiveWorkbook.Name NewFile = Application.GetOpenFilename(FileFilter:="Excel Files (*.xls*), *.xls", Title:="Please select a file", MultiSelect:=False) 'only excel files Workbooks.Open NewFile 'Retrieve File Name with Extension (Displayed in Immediate Window [ctrl + g]) myPath = Left$(NewFile, InStrRev(NewFile, "\") - 1) myFile = Right$(NewFile, Len(NewFile) - InStrRev(NewFile, "\")) Debug.Print "File Name (w/ ext): " & myPath & " - " & myFile End Sub