宏用作按钮，但不用作UI功能区

Question

如果第1列中只有一个字母，我在Excel中编写了一个非常简单的VBA宏来突出显示行。从窗体控制按钮运行时代码工作正常，但不能从功能区中的自定义UI按钮运行（使用事件处理程序，当然）。这是代码：

Dim counter As Integer
Dim index As String

counter = 1

While Not index = ""
    On Error Resume Next
    index = ActiveWorkbook.ActiveSheet.Cells(counter, 1).Value

    If Len(index) = 1 Then
        ActiveSheet.Rows(counter).Interior.ColorIndex = 16
    End If

    counter = counter + 1
Wend

任何想法为什么？我假设它与无法找到ActiveWorkBook有关。