What happened to your previous post??

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:

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

any suggestions on how to add this into a macro?