Application.EnableEvents = False

With ActiveSheet.ComboBox1
.ListIndex = 0 'this line does not seem to
disable 'Private Sub ComboBox1_Change()
.Visible = True
.Activate
End With

how can i remedy this pleas