Нашёл практически подходящую под себя реализацию, но мне нужно вместо поиска по текстовым значениям поиск по числам.
Пробовал переделывать исходный код, но ничего путного не получилось... Оставил рабосий вариант поиска по тексту.
Private Sub CommandButton1_Click()
If Opt1 = True Then FIO.ListBox1.Text Else FIO = t1
i = 2: Pr = 0
Do While Cells(i, 1) > ""
If Cells(i, 1) = FIO Then
Cells(i, 1).Select
Pr = 1
Exit Do
End If
i = i + 1
Loop
If Pr = 1 Then
Else
MsgBox "Фамилия не найдена", vbCritical, "Корректировка"
End If
End Sub