Welcome to the Board!
Here's the full syntax for the GetOpenFileName method which will let you select a file and open it. From there I'd record a macro copying the specific cell into your workbook. If you post back what you get someone can help you set it up to paste to a new row each time.
<font face=Calibri><SPAN style="color:#00007F">Sub</SPAN> GetOpenFileName()<br> <SPAN style="color:#00007F">Dim</SPAN> FileName <SPAN style="color:#00007F">As</SPAN> <SPAN style="color:#00007F">Variant</SPAN><br> <SPAN style="color:#00007F">Dim</SPAN> Filt <SPAN style="color:#00007F">As</SPAN> <SPAN style="color:#00007F">String</SPAN>, Title <SPAN style="color:#00007F">As</SPAN> <SPAN style="color:#00007F">String</SPAN><br> <SPAN style="color:#00007F">Dim</SPAN> FilterIndex <SPAN style="color:#00007F">As</SPAN> <SPAN style="color:#00007F">Integer</SPAN>, Response <SPAN style="color:#00007F">As</SPAN> <SPAN style="color:#00007F">Integer</SPAN><br> <br> <SPAN style="color:#007F00">' Set Drive letter</SPAN><br> ChDrive "C:\"<br> <SPAN style="color:#007F00">' Set to Specified Path\Folder</SPAN><br> ChDir "C:\Documents and Settings\All Users\Desktop\"<br> <SPAN style="color:#007F00">' Set File Filter</SPAN><br> Filt = "Excel Files (*.xls), *.xls"<br> <SPAN style="color:#007F00">' Set *.* to Default</SPAN><br> FilterIndex = 5<br> <SPAN style="color:#007F00">' Set Dialogue Box Caption</SPAN><br> Title = "Please select a different File"<br> <SPAN style="color:#007F00">' Get FileName</SPAN><br> FileName = Application.GetOpenFileName(FileFilter:=Filt, _<br> FilterIndex:=FilterIndex, Title:=Title)<br> <SPAN style="color:#007F00">' Exit if Dialogue box cancelled</SPAN><br> <SPAN style="color:#00007F">If</SPAN> FileName = <SPAN style="color:#00007F">False</SPAN> <SPAN style="color:#00007F">Then</SPAN><br> Response = MsgBox("No File was selected", vbOKOnly & vbCritical, "Selection Error")<br> <SPAN style="color:#00007F">Exit</SPAN> <SPAN style="color:#00007F">Sub</SPAN><br> <SPAN style="color:#00007F">End</SPAN> <SPAN style="color:#00007F">If</SPAN><br> <SPAN style="color:#007F00">' Display Full Path & File Name</SPAN><br> Response = MsgBox("You selected " & FileName, vbInformation, "Proceed")<br> <SPAN style="color:#007F00">' Open Selected Workbook</SPAN><br> Workbooks.Open FileName<br><br><SPAN style="color:#00007F">End</SPAN> <SPAN style="color:#00007F">Sub</SPAN></FONT>
HTH,