Dim wbsurc As Workbook, wbdest As Workbook, flpath As String 'to Open both workbooks: Set wbsurc = Workbooks.Open(" C:\1. D Drive\2 - Wrokshop\2 - Working\Vendor List\&Master AML&.xlsb") Set wbdest = Workbooks.Open(" C:\1. D Drive\2 - Wrokshop\2 - Working\Vendor List\"".xlsb") 'flpath = wbsurc.Path & "\" 'Now, copy from source book: wbsurc.Sheets("Vend list").Range("A1:C6880").Copy 'Now, paste to target workbook/sheet: wbdest.Sheets("vend").Range("A1").PasteSpecial 'Close x: wbsurc.Close End Sub
Network and collaborate with thousands of CTOs, CISOs, and IT Pros rooting for you and your success.
”The time we save is the biggest benefit of E-E to our team. What could take multiple guys 2 hours or more each to find is accessed in around 15 minutes on Experts Exchange.