VBA programming, copy wks from one file to another

Closed
MisterTS Posts 1 Registration date Monday December 8, 2014 Status Member Last seen December 8, 2014 - Dec 8, 2014 at 05:15 PM
Hi,
I am struggling with the code to copy each sheet in workbook1 to workbook2)

Dim NewWorkbook As Workbook
Dim Wks As Worksheet
Dim wb1 As Workbook
Dim wb2 As Workbook


wb1 = Workbook("MySource.xls")
wb2 = ActiveWorkbook.Name

wb1.Select
For Each Wks In wb1.Worksheets
DoEvents
Wks.Copy Before:=Workbooks(wb2).Sheets("Balance")
next

It does not work... The names and number of sheets will vary from time to time when the process is used.