Linking Cells from a Browsed For Workbook

Hello,

I am currently attempting to construct a materials and costs calculation workbook.
On one part of it there is some project specific details. What I want to do is to have a button added on the sheet where the user of the workbook can select it, and then browse for another workbook used in the project.
Once this is done, it takes values from that workbook and places them into this new workbook. Since my excel crashes occasionally when trying to open several workbooks, ideally they should not need to open the other workbook. (I hope that makes sense).
I have had a good look around the web, but whereas a few came close to what I wanted, none really gave my exactly what I want.
The main issue is that the workbook they chose wont be the same each time as there's one for each project, but thankfully they all follow a standard template.
As in if they was filling it out for project 001, they would select the other workbook already created in Project 001. And so when they do Project 002, they'll select the workbook used in Project 002. (if that makes it any clearer).

I can use VBA, but I am no wiz on it.

Any help would be great.

Thanks

Hello,

After quite a while messing about and trying parts of code from what people have put online. I managed to get something that works well enough for me.
The code is below for anyone who wants to see:

Sub SincDATA()
Dim desPathName As Variant
desPathName = Application.GetOpenFilename(FileFilter:="Excel Files (*.xls*), *.xls*", Title:="Please select a file")
If desPathName = False Then
Exit Sub
End If

Dim answer As Integer
answer = MsgBox("You are about to Sinc Data. Confirm?", vbYesNo + vbQuestion, "Confirm Sinc")
If answer = vbYes Then

Dim Path As String
Path = desPathName

Dim currentWb As Workbook
Set currentWb = ThisWorkbook

Dim openWb As Workbook
Set openWb = Workbooks.Open(desPathName)

currentWb.Sheets("User Interface").Range("C4") = openWb.Worksheets("Proposal Sign Off").Range("D2")
+Plus many lines of linking cells
currentWb.Sheets("User Interface").Range("L27") = openWb.Worksheets("Project Spec Sheet").Range("O53")

ActiveWorkbook.Close

End If
End Sub

Sorry its not in a code box. I haven't figured out how to add one yet.

thanks