Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- Set wbk = Workbooks.Open(DepFile)
- wbk.Sheets("Table1").Range("A1:BF200000").Copy
- ThisWorkbook.Sheets(cSrcTabName).Range("A1").PasteSpecial xlPasteValues
- Application.CutCopyMode = False
- wbk.Close
- Set wbk = Nothing
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement