[vba] variabile booleana è vuota!

[Kahm]

salve a tutti
i voglio scrivere un semplice "thread" per chè il mio cliente vuole una applicazione che avvii una procedura ed un pulsante di STOP
stavo mettendomi a studiare un modo ed ho scritto la seguente procedura:

Dim Ferma As Boolean

Sub EseguiCiclo()
' Macro1 Macro
Dim i As Integer
For i = 0 To 1000

     If Ferma = True Then
        Ferma = False
        Exit Sub
    End If
    Application.Sheets("UCG 5").Select
    Range("j" & i & ":j" & i).Select
    Range(Selection, Selection.End(xlDown)).Select
    Range("J" & i).Select
    ActiveCell.FormulaR1C1 = i
    
    DoEvents
Next

'
   
End Sub
Sub Stopp()
Ferma = True
End Sub

sembra strano ma la variabile Ferma è di tipo booleano
e dentro il ciclo non cambi amai valore anzi, è sempre : vuoto!!!
come posso fare?