I am having a little trouble figuring out the syntax for coping and pasting between different workbooks. Can anyone show me how to write the syntax for this?
This is what I have so far, it is not finished so obviously won't work.
Sub Datacopy()
'
' Datacopy Macro
'
'
Dim wbData As Workbook 'The WB to be transferring data from.
Dim wsSheet As Worksheet 'The WS to be transferring data from.
Dim wbs As Workbook 'The WB to be transferring data to.
Dim wks As Worksheet 'The WS to be transferring data to.
Set wbData = Workbooks("Data")
wbData.Activate
Set wbSheet = Worksheets("Record")
wbSheet.Cells(2, 4).Copy
Set wbs = Workbooks("NewBook")
Set wks = Worksheets("Report")
Destination:=wks.Cells(2, 4)
End Sub
Bookmarks