in Tabelle schreiben

Private Sub CommandButton1_Click()
Dim q As Integer
For i = 1 To i = 53
Sheets("Daten").Cells(i, 1) = Controls("Textbox" & i).Value
Next
ActiveWorkbook.Save
MsgBox "Values saved"
End Sub

Aber irgendwie geht er nochnichtmal in die Schleife?!
Vielen dank für jede Hilfe
Mfg Patrick