Ubound and Lbound

Hi guys,

I was trying to do write a code that reads the 10th column of the row of the activecell and return the country i set in my array "arrcountry". It returns the first value and would not loop through the remaining. Am i doing something wrong here? Thanks.

Dim i As Integer

arrCountry(0, 0) = "USD"
arrCountry(0, 1) = "United State"

arrCountry(1, 0) = "SEK"
arrCountry(1, 1) = "Sweden"

For i = LBound(arrCountry, 1) To UBound(arrCountry, 1)
Set Country = Cells(ActiveCell.row, 10)
If Country = arrCountry(i, 0) Then
ActiveCell = arrCountry(i, 1)
ActiveCell.Offset(1, 0).Select
End If

Next