Sub DoIt()
Sheet1.Range("A1").FormulaArray = _
Workbooks("Book2.xls").Sheets(1).Range("A1").FormulaArray
End Sub
If you want a non-VBA method to accomplish this with many cells simultaneously, first copy all your cells with a simple copy and paste. Bring up the "find and replace" dialogue. Enter the link portion of the formula in to the "find" field and make sure there is nothing in the "replace" field. Click "replace all". You should be left with just the original formula in all the fields.