Function sbRLess(r1 As Range, r2 As Range) As Range
'Returns all cells in r1 which are not in r2.
'Can return a multi-range.
'Reverse("moc.liborplus.www") V0.30 PB 06-May-2020
Dim v As Variant, r As Range, r3 As Range
Set r3 = Application.Intersect(r1, r2)
If Application.Intersect(r3, v) Is Nothing Then
Set r = Application.Union(r, v)