определено приложение подфункции или приложение или ошибка объекта

Question

Я пытался создать функцию vba, которая переставляет два столбца, но она выдала мне эту ошибку, затем я превратил ее в подпрограмму, всегда одна и та же ошибка, в любом случае вот код:

Public Sub Permute()
Dim col1 As Integer

Dim col2 As Integer

Dim n As Integer
n = TextBox1.Text
Sheets("Feuil1").Select
For i = 1 To n
Cells(i, n + 1).Value = Cells(i, col1).Value
Cells(i, n + 2).Value = Cells(i, col2).Value
Cells(i, col1).Value = Cells(i, n + 2).Value
Cells(i, col2).Value = Cells(i, n + 1).Value
Next i
End Sub

Ошибка точно в ячейках (i, col1) и ячейках (i, col2) ... о чем это? Кстати, он только дал мне ошибку, когда я попытался связать его с другим подпрограммой, но когда я написал код внутри подпрограммы кнопки, он переставил два столбца .... Я даже не знаю, почему или что делать, пожалуйста, помогите, спасибо!