Sub CallSubForRange(rng As Range, SubName$)
Dim arr, aOne(1 To 1, 1 To 1)
Dim a&, r&, c&


For a = 1 To rng.Areas.Count
    arr = rng.Areas(a).Value
    If Not IsArray(arr) Then aOne(1, 1) = arr: arr = aOne

    For c = 1 To UBound(arr, 2)
        For r = 1 To UBound(arr, 1)
            SubName arr(r, c)
        Next r
    Next c
Next a
End Sub
'====================================================================================================
Sub MyTrim(v)
    v = WorksheetFunction.Trim(v)
End Sub