Помогите найти ошибку. Код состоит из двух елементов: пользовательская функция и процедура, которая использует ету функцию. Фокус в том, что когда я использую функцию отдельно от процедури (прописиваю ее на листе ексель в строке формули), оказиваеться, что она робочая. Но когда я ету функцию питаюсь использовать в процедуре, то ексель меня уведомляет "Tipe mismatch"
К слову, функция вичисляет евклидово расстояние между обектами, а процедура в недалеком будущем должна напоминать чтото издали похожое на K-NN алгоритм.
Файл с примером прикрепил. Перед исполльзованием кода нужно вибрать диапазон данних на листе.
Sub Knn()
Set s = Selection
Dim s1 As Range, s2 As Range
Set s1 = s.Resize(1, 5)
Set s2 = s.Offset(1, 0).Resize(1, 5)
MsgBox aEDistance(s1, s2)
End Sub