Guest User

Untitled

a guest
Dec 10th, 2018
82
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 0.44 KB | None | 0 0
  1. 'Set Current Workbook as Master
  2. Set masterWB = Application.ThisWorkbook
  3. 'Set some Workbook as the one you are copying from
  4. Set dailyWB = Workbooks.Open(Sheets("Control Manager").Range("O2"))
  5.  
  6. 'Copy the Range from dailyWB and Paste it into the MasterWB
  7. dailyWB.Sheets("Summary").Range("A1:BJ200").Copy masterWB.Sheets("AFS Summary").Range("A1").Rows("1:1")
  8. 'formatting and paste as values
  9. Workbooks("Workbook B").Activate
  10. Worksheets("Summary").Select
Add Comment
Please, Sign In to add comment