Private Sub combobox_KeyUp(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
'..........
Call сформировать_список(combobox.value)
If combobox.ListCount = 1 And combobox.List(0) = "" Then
    свернуть список???
else
    combobox.DropDown
end if
'...........
end sub

#If VBA7 Then
'код
#Else
'код
#End If

    Sub ComboBox1_GotFocus()
        ComboBox1.Value = ""
        ComboBox1.Clear
        ComboBox1.MatchEntry = fmMatchEntryNone
        new_list
        ComboBox1.DropDown
    End Sub

    Private Sub ComboBox1_KeyUp(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
        If KeyCode = 38 Or KeyCode = 40 Then Exit Sub 'не реагируем на стреки вниз и вверх
            new_list
    End Sub

    Private Sub ComboBox1_Change()
        ComboBox1.DropDown
    End Sub

    Sub new_list()
        prew = ComboBox1.Value
        arr = Sheets(1).UsedRange.Columns(1).Value
        n = 0
        ReDim l_arr(n)
        For i = 1 To UBound(arr)
            If InStr(1, UCase(arr(i, 1)), UCase(prew)) > 0 Then
                ReDim Preserve l_arr(n)
                l_arr(n) = arr(i, 1)
                n = n + 1
            End If
        Next
        ComboBox1.List = l_ar
    End Sub

With Worksheets("Лист1").Shapes.группа(1)
    .AddLine 1,2,3,4
    .AddLine 5,6,7,8
End With
With Worksheets("Лист1").Shapes.группа(2)
    .AddLine 1,2,3,4
    .AddLine 5,6,7,8
End With
Worksheets("Лист1").Shapes.группа(1).Line.Weight = 3