Dim i As Integer
Dim oCtrl As Control
    For Each oCtrl In Controls
        If TypeName(oCtrl) = "ComboBox" Then
            If oCtrl.value = "Pickup" Then
                'do stuff with oCtrl e.g.
                MsgBox oCtrl.Name
                Exit For
            End If
        End If
    Next oCtrl