Оптимизация вычислений при помощи цикла - VBA

Формулировка задачи:

Здравствуйте есть такой код

                    Листинг программы
                
 
                        
                          
                    
Workbooks.Open Filename:="C:\Users\00033648\Desktop\НПА\Расчет\1.XLS"
Columns("A:C").Copy
Windows("расчет.xlsx").Activate
Range("A1").Select
ActiveSheet.Paste
Windows("1.XLS").Activate
ActiveWindow.Close
 
Workbooks.Open Filename:="C:\Users\00033648\Desktop\НПА\Расчет\2.XLS"
Columns("A:C").Copy
Windows("расчет.xlsx").Activate
Range("A1").Select
ActiveSheet.Paste
Windows("2.XLS").Activate
ActiveWindow.Close

данное действие нужно сделать для 22 файлов, хочу оптимизировать с циклом но с синтаксисом не могу справиться

                    Листинг программы
                
For i = 1 To 22
 
Workbooks.Open Filename:="C:\Users\00033648\Desktop\НПА\Расчет\ i &.XLS"
Columns("A:C").Copy
Windows("расчет.xlsx").Activate
Range("A1").Select
ActiveSheet.Paste
Windows("i &".XLS").Activate
ActiveWindow.Close
 
Next i

но дает ошибку

Решение задачи: «Оптимизация вычислений при помощи цикла»

textual
                            Листинг программы 
                        
For i = 1 To 22
 
Workbooks.Open Filename:="C:\Users\00033648\Desktop\НПА\Расчет\" & i & ".XLS"
Columns("A:C").Copy
Windows("расчет.xlsx").Activate
 
sheets(i).activate
 
Range("A1").Select
ActiveSheet.Paste
Windows("i &".XLS").Activate
ActiveWindow.Close
 
Next i