Code Running Sequentially

[jo15765]

I posted here, and had help modifying my code to custom my needs
http://www.vbaexpress.com/forum/showthread.php?t=40113


I just tested it extensively and realize I need one more mod...
The way I have it set currently is to run two separate functions (adding in the workbooks.Add will fix my problem, if we can figure out what that debug error means)


Function 1()
Workbooks.Add
Dim Varbooks As Variant
Dim wb As Workbook, wbFinal As Workbook
Dim i As Long
Const Path As String = "Location of workbooks"
Varbooks = Array("Name of Workbooks)
Set wbFinal = ActiveWorkbook
Application.EnableEvents = False
For i = LBound(Varbooks, 1) To UBound(Varbooks, 1)
Set wb = Workbooks.Open(Path & Varbooks(i))
wb.Worksheets(2).Copy wbFinal.Worksheets(1)
wb.Close False
Next
wb.Sheets("Sheet1").Select
wb.SelectedSheets.Delete
Set wb = ActiveWorkbook
wb.SaveAs Filename:="location to save" & "Filename"
wb.Close
End Function

Function 2()
Workbooks.Add
Dim Varbooks As Variant
Dim wb As Workbook, wbFinal As Workbook
Dim i As Long
Const Path As String = "Location of workbooks"
Varbooks = Array("Workbook Names")
Set wbFinal = ActiveWorkbook
Application.EnableEvents = False
For i = LBound(Varbooks, 1) To UBound(Varbooks, 1)
Set wb = Workbooks.Open(Path & Varbooks(i))
wb.Worksheets(2).Copy wbFinal.Worksheets(1)
wb.Close False
Next
wb.Sheets("Sheet1").Select
wb.SelectedSheets.Delete
Set wb = ActiveWorkbook
wb.SaveAs Filename:="File Name" & "Location"
wb.Close
End Function


Which throws a VBA error of
System Error &H800401A8 (-2147221080)

[jo15765]

Ignore my stupidity, all I had to do was modify the delete line of code to this:

Activeworkbook.Sheets("Sheet1").Delete