Elenco in una casella

Private Sub ComboBox2_Change()

''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
''' riempie combobox da range,
'''e si ferma al primo carattere non presente
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Dim C As Range, L As Integer
On Error Resume Next
'''' range di un nome definito di nome LISTA su cui effettua ricerca
With Worksheets("Foglio1").Range("LISTA")
    L = Len(ComboBox2.Value)
    Set C = .Find(ComboBox2.Value)
    If C Is Nothing And L > 0 Then
      ComboBox2.Value = Left(ComboBox2.Value, L - 1)
    ElseIf L > 0 And Left(C.Text, L) <> ComboBox2.Value Then
      ComboBox2.Value = Left(ComboBox2.Value, L - 1)
    End If
End With

''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
''' FINE
'''
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim valore As String
Application.ScreenUpdating = False
Sheets("Foglio1").Activate

With ActiveSheet

    If Not Intersect(Target, .Range("e3:f19")) Is Nothing Then
            valore = Target
            ComboBox1.Text = valore
    
    ElseIf Not Target Is Range("e3:f19") Then
            ComboBox1.Text = ""
            
    End If
End With

Application.ScreenUpdating = True
End Sub