Fala ae galera, sou novo aqui no forum, gostaria muito da ajuda de vocês, estou iniciando no VBA e estou com dificuldades para fazer as ListBox funcionar. Estou querendo fazer com que 03 ListBox funcionem com o seguinte Critério: na Listbox1: Estou selecionando um tipo de exame médico, na ListBox2: estou selecionando um Subtipo do exame e na ListBox3: gostaria que aparecesse o preparo para este exame. Até na ListBox2 Funciona normalmente, o problema e na ListBox3 que não aparece o preparo. Segue o Código:

Private Sub ComboBox1_Click()

ComboBox2.Clear
Exame = ComboBox1
linha = 2

Do Until Sheets("DADOS").Cells(linha, 1) = ""

If Sheets("DADOS").Cells(linha, 2) = Exame Then
ComboBox2.AddItem Sheets("DADOS").Cells(linha, 3)
linha = linha + 1
Else
linha = linha + 1
End If
Loop

End Sub

Private Sub ComboBox3_Click()

ComboBox3.Clear
Preparo = ComboBox2
linha = 2

Do Until Sheets("Cad_Preparos").Cells(linha, 1) = ""

If Sheets("Cad_Preparos").Cells(linha, 2) = Preparo Then
ComboBox3.AddItem Sheets("Cad_Preparos").Cells(linha, 3)
linha = linha + 1
Else
linha = linha + 1
End If
Loop





End Sub



Private Sub imprimir_Click()

 'Botão imprimir
 'imprimir Cupom


    ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, _
        IgnorePrintAreas:=False



End Sub





Private Sub UserForm_Initialize()
'--------------------------------------


'--------------------------------------

linha = 2
Do Until Sheets("Exames").Cells(linha, 1) = ""
ComboBox1.AddItem Sheets("Exames").Cells(linha, 1)
linha = linha + 1
Loop


End Sub

Se alguém Puder me ajudar serei eternamente Grato!!!