Sub a() Dim a If Range("C9") >= 23 Then For a = 23 To Range("C9") MsgBox "ciao" Next a Else MsgBox "non posso eseguire" End If End Sub