Loop Worksheet Combo Boxes

Hi all,

I am working with some worksheet combo boxes and I am having troubles with loading values into them using a loop. The code:

For cbCnt = 1 To 2
        If cbCnt = 1 Then
            For Each rCell In qtrSht.Range(qtrSht.Cells(3, 3), qtrSht.Cells(3, 3).End(xlDown))
                With OLEObjects("cbDt" & cbCnt)
                    .AddItem rCell.Value
                End With
                        
            Next rCell
        End If
Next cbCnt

Can anyone tell me why this is be so darned stubborn?

Supashi-bo