Subscript out of range ,VBA

Question

Hi I am getting error as subscript out of range but i am unable to identify why.

Error is in line marked with **.

Function RemoveDups(aryValues) As Varia         


        

Answer 1

change t = 0 to t = 1 because dimmension of arr array starts from 1( ReDim arr(1 To UBound(aryValues))):

t = 1 

For i = LBound(aryValues) + 1 To UBound(aryValues)
    For Each v In dict.Keys
        If v = aryMembers(i) And c = 0 Then
            arr(t) = aryValues(i)
            c = c + 1
            t = t + 1
        End If
    Next
    c = 0
Next