Varias pesquisas numa só

Quando o form é aberto ele carrega os nomes de uma planilha na ComboBox1, ai eu seleciono qual nome quero e mando pesquisar, geralmente são feitos todos os nomes , como posso fazer para deixar automatico uma vez clicado no botão ele faça sozinho a PESQUISA, com todos os nomes que estiverem no ComboBox1.

Private Sub UserForm_Initialize()
Dim QuantasLinhas, Cont
QuantasLinhas = Workbooks("Pesquisa1 .xls").Sheets("Dados").Range("A65000").End(xlUp).Row
For Cont = 2 To QuantasLinhas
Me.ComboBox1.AddItem Plan4.Range("A" & Cont)
End Sub

Private Sub PESQUISA_Click()
Dim i As Integer
Dim pes As Variant
Dim WS As Worksheet
Dim rg As Range
For Each WS In ActiveWorkbook.Worksheets
For Each rg In WS.[D1:D80]
If rg = ComboBox1.Value And rg.Offset(, -2) <> "" Then i = i + 1
Next rg
Next WS
txtvalor.Value = i
txtnome.Value = ComboBox1.Value
Me.ListBox1.AddItem Me.txtnome.Value
Me.ListBox1.List(Me.ListBox1.ListCount - 1, 1) = Me.txtvalor.value
End Sub

Desde ja agradeço
Osmar