Haven't tested this, but should work. Just change names and cells to suite
Another non VBA method is to copy the formula from the Formula bar, select the destination cell, then paste into the formula bar.Code:Sub DoIt() Sheet1.Range("A1").FormulaArray = _ Workbooks("Book2.xls").Sheets(1).Range("A1").FormulaArray End Sub
You may also find this link of use:
Scroll down to:
"How to copy formulas without the reference changing"
Xl Add-ins, with free File Size Reducer
40+ more here
[ This Message was edited by: Dave Hawley on 2002-07-23 04:10 ]