对象的方法范围_Global失败 - 执行while循环

Question

我试图运行以下代码。我想在C列中找到长度为5的第一个和最后一个值。该列已经排序。

Sheets("Worksheet").Activate
rNum = 2
rFirst = 0
rLast = 0
Do While Len(Range("C" & (rNum)).Value) <= 5
        If Len(Range("C" & (rNum)).Value) = 5 Then
            rLast = rNum
            If rFirst = 0 Then
                rFirst = rNum
            End If
        End If
    rNum = rNum + 1
Loop

我之前使用相同的代码作为长度为3的值，并且它工作得很好，所以我不确定出了什么问题。