Como arreglo Combobox excel procedimiento largo

Si tus controles se encuentran desordenados o no correlativos, podrías utilizar este otro código. Lo que hace es evaluar si se trata de un control ComboBox y en cada caso evaluará su nombre para dejar visible solo el que corresponda al Case.

Private Sub ComboBox8_Change() 
Select Case ComboBox8.Text
Case "12x6'"
    'llama a una macro común indicando el nombre del control que debe quedar visible
    Call ocultaCt("ComboBox5")
Case "12x7'"
    Call ocultaCt("ComboBox10")
'agregar todos los Case
End Select
End Sub
Sub ocultaCt(miCombo)
'recorre todos los controles
For Each ct In Me.Controls
    'si se trata de un ComboBox y no es el Combo8, evaluaré su nombre
    If TypeName(ct) = "ComboBox" And ct.Name <> "ComboBox8" Then
    'Si corresponde a 'miCombo' lo hará visible y el resto se oculta para este caso
        If ct.Name = miCombo Then
            ct.Visible = True
        Else
            ct.Visible = False
        End If
    End If
Next ct
End Sub

Debes completar todos los Case y copiar allí mismo la segunda macro (ocultaCt) que es común a todos.

Otros ejemplos de macros compartidas en el video N° 9 de mi canal.

Muchas gracias y sabes como hacer 3 combobox relacionados entre si es decir cuando en el combobox1 se seleccione 12x6 y en el combobox2 se seleccione 6x6 en el combobox3 se ponga 2-12.Muchas gracias por todo

[hola 

Si los nombres de los combox son correlativos 

Private Sub ComboBox8_Change()
Dim i As Long
Select Case ComboBox8.Text
Case "12x6´"
ComboBox5.Visible = True
    For i = 10 To 50
        Me.Controls("ComboBox" & i).Visible = False
    Next i
Case "12x7´"
ComboBox5.Visible = False
ComboBox10.Visible = True
 For i = 11 To 21
        Me.Controls("ComboBox" & i).Visible = False
    Next i
End Select
End Sub
Private Sub UserForm_Activate()
ComboBox8.List = Array("12x6´", "12x7´")
End Sub

Muchas gracias.Me lo podrías explicar por favor el código, es que soy nuevo en Excel y me gustaría saber. Gracias

Private Sub ComboBox8_Change()
Dim i As Long
Select Case ComboBox8.Text
Case "12x6´"
ComboBox5.Visible = True
'recorre los combox del 10 al 69,(ComboBox10,ComboBox11,...)puedes cambiar si son más de 69.
    For i = 10 To 69
        Me.Controls("ComboBox" & i).Visible = False ' oculta los combox
    Next i
Case "12x7´"
ComboBox5.Visible = False
ComboBox10.Visible = True
'recorre los combox del 11 al 21,(ComboBox11,ComboBox12,...)puedes cambiar si son más de 69.
 For i = 11 To 21
        Me.Controls("ComboBox" & i).Visible = False ' oculta los combox
    Next i
End Select
End Sub
Private Sub UserForm_Activate()
'carga los valores en el ComboBox8 al ejecutar el formulario
ComboBox8.List = Array("12x6´", "12x7´")
End Sub

Me dice cuando lo ejecuto se ha producido el error 42 en tiempo de ejecución se requiere un objeto en la línea

ComboBox8.List = Array("12x6´", "12x7´")

Vale ya lo he solucionado pero ahora me da error -2147024809

En esta línea

Me.Controls("ComboBox" & i).Visible = False ' oculta los combox