Option Explicit
Private Sub CommandButton1_Click()
Unload Me
End Sub
Private Sub TextBox1_Change()
    Dim j As Long, i As Long, poisk As Range, iAdr$, LT%
    ListBox1.Clear
    LT = Len(TextBox1.Value)
    If LT = 0 Then Exit Sub
    j = 0
    iAdr = ActiveSheet.UsedRange.Address
    iAdr = Mid(iAdr, InStr(iAdr, ":") + 1)
    For Each poisk In ActiveSheet.Range("A1:" & iAdr)
    If UCase(Left(poisk, LT)) = UCase(TextBox1.Value) Then
        ListBox1.AddItem poisk.Address
        ListBox1.List(j, 1) = poisk
        j = j + 1
    End If
    Next
End Sub
Private Sub ListBox1_Click()
    If ListBox1.ListIndex = -1 Then Exit Sub
    Range(ListBox1).Select
End Sub
Private Sub UserForm_Click()

End Sub

Sub СписокПоиск()
    ufrmПоиск.Show (0)
End Sub
Sub isk()
  ST = Selection.Row + 1
  If Len(Range("E1").Value) = 1 Then
    For i = ST To Cells(Rows.Count, 5).End(xlUp).Row
        If UCase(Left(Cells(i, 5), 1)) = UCase(Range("E1").Value) Then
           Cells(i, 5).Select
           Exit Sub
        End If
    Next i
  End If
  If Len(Range("E1").Value) > 1 Then
    For i = ST To Cells(Rows.Count, 5).End(xlUp).Row
        If InStr(1, UCase(Cells(i, 5)), UCase(Range("E1").Value)) > 0 Then
           Cells(i, 5).Select
           Exit Sub
        End If
    Next i
  End If
End Sub