Change Combo Box Value in VBA

[dmacmillan]

Hi All,

I am using the following code to cycle through the ListFillRange of a ComboBox and update a graph. The code works perfectly when I step through the macro (with F8); the ComboBox value and graph are updated. However when the macro is run (with F5) the graph is updated but the ComboBox value does not update. Do I need to insert code to update the ComboBox value?

Thanks in advance,
David

Sub CycleGraphs()
Dim cbxItem As MSForms.ComboBox
Dim strList As String
Dim rngList As Range
Dim i As Integer

Set cbxItem = Worksheets("ROTAMAG").cboRotamag
strList = cbxItem.ListFillRange
Set rngList = Range(strList)

Worksheets("Rotamag").Select

For i = 0 To rngList.Count - 1
cbxItem.ListIndex = i
DoEvents
Application.Wait (Now + TimeSerial(0, 0, 5))
Debug.Print Now
Next i

Run "CycleGraphs"
End Sub