Getting Subscript out of range error in the following code

Sub MinFun()

For n = 1 To UBound(MyResFT)
If MinVal = MyResFT(n) Then
n = n
End If
Next


I want to assign value to n basis match between MinVal & MyResFT(n). Getting this error. Please help.