VBA循环，直到名称中出现"disabled“为止

Sub LoopUntilDisabled()
    Dim cell As Range
    Dim disabledFound As Boolean
    
    disabledFound = False
    
    ' 循环遍历所有名称
    For Each cell In ActiveWorkbook.Names
        ' 检查名称中是否包含"disabled"
        If InStr(1, cell.Name, "disabled", vbTextCompare) > 0 Then
            disabledFound = True
            Exit For
        End If
    Next cell
    
    ' 如果找到了包含"disabled"的名称，则退出循环
    Do Until disabledFound
        ' 继续循环遍历所有名称
        For Each cell In ActiveWorkbook.Names
            ' 检查名称中是否包含"disabled"
            If InStr(1, cell.Name, "disabled", vbTextCompare) > 0 Then
                disabledFound = True
                Exit For
            End If
        Next cell
    Loop
    
    ' 循环结束后执行的代码
    MsgBox "名称中出现了""disabled""！"
End Sub