Ola boa noite a todos leitores do planilhando,
Como fazer uma pesquisa rápida em uma lista?
Tenho na Plan2 no coluna D4 uma lista de nomes de pessoas. Como faço para digitar no combobox então exibir esta lista em ordem alfabética no listbox.
Achei este código parecido mas não consigo exibir no ListBox.

Private Sub UserForm_Initialize()
Dim linha As Integer
linha = 4
Do Until Plan2.Range("d" & linha).Value = ""
Me.ComboBox1.AddItem Plan2.Range("d" & linha).Value
linha = linha + 1
Loop
'Me.ListBox1.AddItem.Value = ComboBox1
End Sub

Obrigado