Repeat Procedure

I am looking for a loop to repeat a procedure 1000 times. Here's the procedure:

Code:

---

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

---

thanks for any help.

You want to open the same workbook 1000 times?

Thanks for the reply. I have code that will close each workbook after it does a specific task.

Code:

---

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

---

??

Quote:

---

I have code that will close each workbook after it does a specific task.

---

so there is a list of workbooks somewhere?

Your code work great. Thanks

That looks like opening the same workbook 1000 ties to me.