Dim ws1 as Worksheet, ws2 as Worksheet

'Saved workbook will have extension like Workbooks("Book1.xls")
Set ws1 = Workbooks("Book1").Sheets("Sheet1")
Set ws2 = Workbooks("Book2").Sheets("Sheet1")

ws1.Range("A1:B10").Copy
ws2.Range("A1").PasteSpecial Paste:=xlPasteFormulas
Application.CutCopyMode = False

If this post helps click Yes
---------------
Jacob Skaria


"bevchapman" wrote:

Cells I want to copy are in another workbook.

"bevchapman" wrote:

I am trying to copy and paste a block of cells from one spreadsheet to
another. The original file is formulas and the destination cells must be the
same formula.

any suggestions on how to add this into a macro?