对于i = 1到[变量]导致循环是连续的

Question

我已经将变量创建为一个整数并将其传递给我的for循环：

Sub CheckAll_Click()
    Worksheets("Sheet3").Activate
    Dim Num As Integer
    Num = Application.WorksheetFunction.CountIf(Range("A:A"), "<>")
    Dim i
    MsgBox Num
    For i = 1 To Num
        MsgBox (i)
    Next i
End Sub

问题在于：它继续循环。 Num = 39（来自消息框的结果）并且当代码运行时，i从1开始并继续到39然后返回到1并且它变为无限循环。知道为什么以及我能做些什么呢？

谢谢！