Copy paste between two opened workbook

[asqw]

Hi

CODE:

Sub AddNewFactoryMat1()
On Error GoTo Error_Found:
Dim x As Workbook
Dim y As Workbook
Dim DstRng1 As Range
Set x = ActiveWorkbook
Set y = Workbooks.Open("D:\RECBOOK.xlsm")
Set DstRng1 = y.Sheets("RecBook").Cells(Rows.Count, 4).End(xlUp).Offset(1, 0)
Set ws = x.Sheets("New MetStk Input")
Application.ScreenUpdating = False
Set SrcRng1 = ws.Range("Ad_Mat_Rec1")
SrcRng1.Copy
DstRng1.PasteSpecial xlPasteValues
Application.ScreenUpdating = False
End If
Exit Sub
Error_Found:
MsgBox " Opps, something has gone bottoms up"
End Sub

two workbook are Forms.xlsm and RECBOOK.xlsm. Macro will run from Forms.xlsm. Problem is hear two workbooks are already open.
it is asking to open RECBOOK.xlsm while it already opened.

Want to do copy and paste as much as user wish and SAVE RECBOOK.xlsm workbook on Exit
Please Help

[gmr4evr1]

If you have both workbooks open every time you run this macro, I don't think you need this line...

Please Login or Register  to view this content.

comment it out then run the macro and see what happens.