Dear all,

I have a following code, which should highlight values in column B which are more or less than 8. Also it should highlight column B is there are any "+" characters in the data. 

Sub test()
    Dim r As Range, i As Long
    
    For i = 2 To 3
        For Each r In Columns(i).SpecialCells(2)
            If i = 2 Then
                If Len(r.Value) < 8 And (r.Value Like "*[[#*]*") Then
                    r.Interior.Color = vbYellow
                End If
            Else
                If Len(r.Value) < 12 And (r.Value Like "*[[#*]*") Then
                'And (r.Value Like "*[[#*]*")
                 r.Interior.Color = vbYellow
                End If
            End If
        Next
    Next
End Sub
Currently, the code is not picking up the errors and neither its automatically updating the table when clicked on the run button.


Any help with the above issue would be very helpful.

Many Many thanks.