Repeat Procedure

[ericb1988]

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

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.

[Bob Phillips]

You want to open the same workbook 1000 times?

[ericb1988]

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

[ashleyuk1984]

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

??

[westconn1]

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

so there is a list of workbooks somewhere?

[ericb1988]

Your code work great. Thanks

[Bob Phillips]

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