Combo box selection to call macro

click on developer
click on design mode
right click on listbox
select view code

paste this code

Private Sub Orders_Change()

If Range("E2").Value <> "Dehorn goat" Then Exit Sub
Call SortGoat
End Sub

close widow
exit design mode