For x = 1 To 1000

ChDir "C:\Users\Eric2\Desktop\playbook_7500\Cost1" 
Workbooks.Open Sheets("sheet1").Range("A1").Value 
Call callcomplete 
Call callcopycolumns 
Windows("copynumbers1.xlsx").Activate 
Call callfinished1 
Cells(Selection.Row, Columns.Count).End(xlToLeft).Offset(, 1).Select 
ActiveSheet.Paste 
Windows("opens workbook based on cell value.xlsm").Activate 

Next x
??