cuadro de lista, automatico?

como hago para q el segundo cuadro de lista se actualize
automaticamente y muestre los diferentes valores sin tener
q ejecutar manualmente el código de listbox2 cada vez????
gracias a todos!!
a b c d
1 opcion1 art1 art3

2 opcion2 art2 art4

3
Private Sub ListBox1_Click()
ListBox1.ListFillRange = ("a1:a2")
ListBox1.LinkedCell = ("a3")
End Sub

Private Sub ListBox2_Click()
Select Case ListBox1.Value
Case "opcion1"
ListBox2.ListFillRange = ("c2:c3")
Case "opcion2"
ListBox2.ListFillRange = ("d2:d3")
End Select
End Sub