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