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.