|| declaration.Annotations.Where(x => x is ITestAnnotation).Any();

ProcedureNotUsedInspection.IsIgnoredDeclaration()

        {
            var enumerable = classes as IList<Declaration> ?? classes.ToList();
            var result = !ProcedureTypes.Contains(declaration.DeclarationType)
                || declaration.References.Any(r => !r.IsAssignment && !r.ParentScoping.Equals(declaration)) // recursive calls don't count
                || handlers.Contains(declaration)
                || IsPublicModuleMember(modules, declaration)
                || IsClassLifeCycleHandler(enumerable, declaration)

Public Sub OldFoo()
    Dim filteredWorksheet As Worksheet
    Set filteredWorksheet = ActiveSheet

    Dim checkFilter As Filter
    Set checkFilter = filteredWorksheet.AutoFilter.Filters(2)

    Err.Clear
    On Error Resume Next  'This should be avoided. No reason for this at all.
    Dim itemCount As Long
    itemCount = UBound(checkFilter.Criteria1) 'Is .Criteria1 an array?
    On Error GoTo 0

    Dim itemString As String
    If Err.Number = 0 Then
        Dim counter As Long
        For counter = 1 To itemCount

If IsArray(checkFilter.Criteria1) Then
    itemString = Join(checkFilter.Criteria1, vbNullString)
Else
    itemString = checkFilter.Criteria1
End If

VBIDE: Sorry. You were 1 character too many. Say goodbye to your succint name.
MDoerner: You're tempting me to go get my coffee right now...