Function PlusFrequent(r As Range)
Dim d As Object, maxi&
Set d = CreateObject("Scripting.Dictionary")
For Each r In Intersect(r, r.Parent.UsedRange)
If r <> "" Then d(r.Value) = d(r.Value) + 1: _
If d(r.Value) > maxi Then maxi = d(r.Value): PlusFrequent = r
Next
End Function