найти строку, которая не содержит определенное слово

Question

У меня есть код, который собирается через диапазон А и найти определенную строку, имеющую первые 6 символов, как цифровой код

Sub FindString() 
    Dim A As Range, r As Range 
    Set A = Intersect(ActiveSheet.UsedRange, Range("A:A")) 
For Each r In A 
    If IsNumeric(Left(r.Text, 6)) And InStr(1, r, "Totals:") Then 

    MsgBox r.Value 

    End If 
Next r 
End Sub 

с этим кодом он будет вернуть все клетки, которые, имеющие первые 6 символов числовые и имеющие Totals слова: в нем

, но я хочу, чтобы внести изменения в этом коде, который просматривает строку, не имеющая Totals слова: в нем

Answer 1

Try это :

If IsNumeric(Left(r, 6)) And 0 = InStr(r, "Totals:") Then 
    MsgBox r 
End If