To repeat codes a number of times for next

To repeat codes a number of times

Sub acc()
Dim i As Long
Dim a As String

a = Sheets("Sheet1").Range("q12").Value


For i = 1 To a
Call accumulator
Debug.Print i

Next i
End Sub