VBA extracting file name and path HELP ::::

[jessmendez01]

this is my new macro ..it opens that old file but doens't copy the filename and path to paste in my active cell in my new file
any help?

Sub GetPartOfFilePath()


    Dim myPath As String, myOutput As String, originalFile As String, NewFile As String
    Dim wb As Workbook
     '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
    Set wb = Workbooks.Open(NewFile)
    NewFile = Dir(NewFile)
     'Retrieve File Name with Extension (Displayed in Immediate Window [ctrl + g])
     'myOutput = Right(myPath, Len(myPath) - InStrRev(myPath, "\"))
     'Debug.Print "File Name (w/ ext): " & myOutput
     'Debug.Print "Opened Workbook's Fullname: ", wb.FullName
     'activecell.value = wb.fullname
     'wb.Worksheets(1).activecell.Value = wb.Fullname

End Sub