Infinite loop

[tiredofit]

If I step into this code, it seems to be stuck in an infinite loop, yet if I run it, it's fine:

Option Explicit


Private Sub cmbGraph_Change()
    
    Me.cmbGraph.Clear
    
    Me.cmbGraph.List = Array("a", "b", "c")
    
    Application.EnableEvents = False
    
    Me.cmbGraph.ListIndex = 0
    
End Sub

so is it in an infinite loop and if so, how can I amend it?

Putting Application.EnableEvents = False doesn't help.

Thanks

 

[Joe4]

Since this runs on "change", you want to disable the events before making any changes (like clearing), less it will keep calling itself.
Try:

Private Sub cmbGraph_Change()
    
    Application.EnableEvents = False

    Me.cmbGraph.Clear
    
    Me.cmbGraph.List = Array("a", "b", "c")
    
    Me.cmbGraph.ListIndex = 0

    Application.EnableEvents = True
    
End Sub

 

[tiredofit]

Thanks

 

[Joe4]

You are welcome.

 

[RoryA]

Application.Enableevents will not affect the Change event of a control. You'd need to use a control variable, although I'm not really clear why you'd want to do what you appear to be doing.

 

[Joe4]

Application.Enableevents will not affect the Change event of a control.

Good catch...