Visual Basic para Aplicaciones - Llenar varios combos por código

Sub cargando(combo As ComboBox)

With combo

.AddItem "Facturable"

.AddItem "Facturable Extra"

.AddItem "Contratos"

.AddItem "Sin cargo"

End With

End Sub

Private Sub UserForm_initialize()

On Error Resume Next

Call cargando(ComboBox1)

Call cargando(ComboBox2)

Call cargando(ComboBox3)

...

Call cargando(ComboBox16)

End Sub

Private Sub UserForm_initialize()

On Error Resume Next

Dim i As Integer

For i = 1 To 3

Call cargando(ComboBoxi)

Next

End Sub

Private Sub UserForm_initialize()

Dim ctl As MSForms.Control

Dim cb As MSForms.ComboBox

Dim sName$, i%

On Error Resume Next

For i = 1 To 16

    sName = "ComboBox" & i

    For Each ctl In Me.Controls

        Err.Number = 0

        Set cb = ctl

        If Err.Number = 0 And ctl.Name = sName Then

           Call cargando(cb)

           Exit For

        End If

    Next

Next

Set ctl = Nothing

Set cb = Nothing

End Sub