' Returns True if an array contains duplicate values' it works with arrays of any typeFunction HasDuplicateValues(arr As Variant) As Boolean Dim col As Collection, index As Long Set col = New Collection ' assume that the array contains duplicates HasDuplicateValues = True On Error GoTo FoundDuplicates For index = LBound(arr) To UBound(arr) ' build the key using the array element ' an error occurs if the key already exists col.Add 0, CStr(arr(index)) Next ' if control comes here, the array doesn't contain ' any duplicate values, so we can return zero HasDuplicateValues = False FoundDuplicates:End Function



Top 5 B2B SaaS Marketing Agencies for 2023
In recent years, the software-as-a-service (SaaS) sector has experienced exponential growth as more and more companies choose cloud-based solutions. Any SaaS company hoping to stay ahead of the curve in this quickly changing industry needs to invest in effective marketing. So selecting the best marketing agency can mean the difference