' 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


Scientists Dimming the Sun: It’s a Good Thing
Scientists at the University of Bern have been exploring geoengineering methods that could potentially slow down the melting of the West Antarctic ice sheet by