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.