vba update named range cells

Question

Я пытаюсь написать функцию, которая даст вам ближайший город из списка в заданную координату или состояние в зависимости от логического значения. вот что у меня есть

Function GetCity(x As String, Optional b as Boolean) As String 
    Dim i As Long, count As Long, row As Long 
    Dim min As Double 

    Count = Range("Table_IVO").Rows.Count 
    min = 9999999 

    For i = 1 To Count 
     If dist(x, Range("Table_IVO")(i,1).Value) < min Then 
      min = dist(x, Range("Table_IVO")(i,1).Value) 
      row = i 
     End If 
    Next i 

    If b = True Then 
     GetCity = Range("Table_IVO")(row, 3).Value 
    Else 
     GetCity = Range("Table_IVO")(row, 2).Value 
    End If 
End Function 

Стол накрыт, как так

A  B  C 
Coords City State 

Он попадает в петлю, но никогда не петлями? Он умирает еще до выполнения, если

Answer 1

 If b = True Then 
     GetCity = Range("Table_IVO")(row, 3).Value 
    Else 
     GetCity = Range("Table_IVO")(row, 2).Value 
    End 

Хотя я мог бы получить больше ясности, глядя на полный код, но если это именно то, что ваш код, который у выполняются, то, возможно, вы пропустили написание Если в конце End в последней строке примера кода, как в

 If b = True Then 
     GetCity = Range("Table_IVO")(row, 3).Value 
    Else 
     GetCity = Range("Table_IVO")(row, 2).Value 
    End If 

в зависимости от среды, которые выполняются ваш код, он не может показать ошибку компиляции.