[VBA] dare un termine ad un loop

[renygade]

Sub reale()

'

' reale Macro

'

'

    Do

    Selection.TypeText Text:="', '"

    Selection.MoveLeft Unit:=wdCharacter, Count:=4

    Selection.MoveDown Unit:=wdLine, Count:=1

    Selection.TypeText Text:="', '"

    Selection.MoveLeft Unit:=wdCharacter, Count:=4

    Selection.MoveDown Unit:=wdLine, Count:=1

    Loop

End Sub

Praticamente mi aggiunge ', ' davanti a ogni riga.

Esempio:

Pane
Latte
Gatto
Beve
Mangia

diverrà

', 'Pane
', 'Latte
', 'Gatto
', 'Beve
', 'Mangia

Il problema è che continua anche a fine documento.
Qualcuno sa come far fermare automaticamente la macro arrivata alla fine, oppure metterla in loop per sole 279893 volte?
Ho provato anche con la funzione EOF ma non so se son io che non la so usare oppure se non va bene per ciò che voglio fare

Grazie mille in anticipo

Devi porre una condizione di verifica vicino alla keyword loop.
Se quindi si verifica una certa condizione il ciclo si interrompe e prosegue con l'esecuzione delle istruzioni successive.
Qui trovi degli esempi
http://www.ozgrid.com/VBA/do-while-loop.htm