Nach End If im Code-Beispiel folgt eine Schleife mit der vorgegebenen Zykluszahl 20. Die Schleife beginnt mit der Laufklausel For und endet mit der Anweisung Next. Zu Beginn wird die Laufvariable I in der Laufklausel (For) auf 1 gesetzt und nach jedem Schleifendurchlauf um die Schrittweite 1 (Step) so oft erhöht, bis der Endwert 20 nicht überschritten wird. Der Zyklus endet an der Next-Anweisung.

Worksheets("Tabelle1").Range("E3") = Ganz
For I = 1 To 20
Worksheets("Tabelle1").Cells(4 + I, 4) = Ganz
Worksheets("Tabelle1").Cells(4 + I, 6) = I * Ganz
Next

Bei Worksheets("Tabelle1").Cells(4 + I, 4) = Ganz wird den Zellen der 4. Spalte (das ist die Spalte D) von Zeile 5 bis 24 der Wert in Ganz zugewiesen. Die Zellen genau 2 Spalten rechts daneben in der 6. Spalte (Das ist die Spalte F) erhalten durch Worksheets("Tabelle1").Cells(4 + I, 6) = I * Ganz jeweils das Produkt aus I und Ganz.