Llenar varios COMBOBOX con los mismos items

Private Function RellenaCombosNumerando(intNumControles As Integer)
    Dim arrValores As Variant
    Dim i As Integer
    Dim j As Integer
    

    arrValores = Array("Masculino", "Femenino")
    
    For i = 0 To intNumControles
        For j = 0 To UBound(arrValores)
            Me("ComboBox" & i).AddItem arrValores(j)
        Next j
    Next i

End Function

Private Function RellenaCombosNombre()
    Dim arrControles As Variant
    Dim arrValores As Variant
    Dim i As Integer
    Dim j As Integer
    

    arrControles = Array("unCombo", "otroCombo", "aunOtroCombo")
    arrValores = Array("Masculino", "Femenino")
    
    For i = 0 To UBound(arrControles)
        For j = 0 To UBound(arrValores)
            Me(arrControles(i)).AddItem arrValores(j)
        Next j
    Next i

End Function