Liste deroulante

mon probleme n'est pas résolu

voici mon code

Private Sub ComboBox1_Click()

End Sub

Private Sub ComboBox1_DropButtonClick()
If ComboBox1.ListCount = 0 Then
With ComboBox1
.AddItem "Adrar"
.AddItem "Ain Defla"
.AddItem "Ain Temouchent"
.AddItem "Annaba"
End With
End If
End Sub

Private Sub ComboBox1_Change()
If ComboBox1.Value = "Adrar" Then SlideShowWindows(1).View.GotoSlide 2
If ComboBox1.Value = "Ain Defla" Then SlideShowWindows(1).View.GotoSlide 3
If ComboBox1.Value = "Ain Temouchent" Then SlideShowWindows(1).View.GotoSlide 4
If ComboBox1.Value = "Annaba" Then SlideShowWindows(1).View.GotoSlide 5
End Sub

lorsque j'excute
sur la fiche déroulante ne s'affiche le choix selection alors qu'il mene vers ledite slide

je remercie toute l'equipe et chaque personne
mes salutations

svp; est ce que vous pouvez me guider pas par pas

merci pour toute l'équipe