Sub ForLoop()
'this is the counter
Dim i As Integer
'start of for loop
For i = 1 To 5
'set cell value. [Cell (1,1) is A1, Cell (2,1) is A2.... etc...]
Cells(i, 1).Value = "We are looopin now!"
'wait a second to show the loop!
Application.Wait (Now + #12:00:01 AM#)
Next i
End Sub