Count of Records IF

[arnelgp]

or simplify:

Public Function fnCountHowManyLongLines(ByVal rng As Range) As Long
    Dim arr As Variant
    Dim i As Long
    Dim cnt As Long    
    arr = rng    
    For i = 1 To UBound(arr, 1)
         cnt = cnt + Abs(Len(arr(i, 1) & arr(i, 2) & "") > 256)
    Next
    fnCountHowManyLongLines = cnt
End Function