Visual Basic - combobos condicionados

Hola a todos!
Estoy intentando condicionar dos combobox en un excel de manera que dependiendo de lo que se ponga en el desplegable del primero el segundo tenga unos u otros caracteres previamente determinados de un rango oculto de celdas que se encuentra en la misma hoja del excel.
He probado de todo pero el código qeu he creado con el Visual Basic no acaba de funcionar y no se por que!</p><p>Podriais ayudarme??? muchisimas gracias. El código que hice es este:


Private Sub ComboBox2_Change()

If ComboBox1.Value = "aeronaves" Then
ComboBox2.Range = ("AL9")
End If

If ComboBox1.Value = "agrario maquinaria agrícola" Then
ComboBox2 = Range("AL11:AL16").Value
End If
If ComboBox1.Value = "artes graficas" Then
ComboBox2 = Cells("AL18:AL30").Range
End If
If ComboBox1.Value = "embarcaciones" Then
ComboBox2.Range = ("aAL32")
End If
If ComboBox1.Value = "Equipamiento deportivo" Then
ComboBox2.Range ("AL34")
End If
If ComboBox1.Value = "equipamiento medico" Then
ComboBox2.Range ("AL36:AL51")
End If
If ComboBox1.Value = "informatica" Then
ComboBox2.Range ("AL53:AL61")
End If
If ComboBox1.Value = "Inmuebles/solares/fincas rusticas" Then
ComboBox2.Range ("AL63:AL77")
End If
If ComboBox1.Value = "Mantenimiento - carretillas elevadoras" Then
ComboBox2.Range ("AL79:AL82")
End If
If ComboBox1.Value = "Maquinaria general" Then
ComboBox2.Range ("AL84:AL126")
End If
If ComboBox1.Value = "Maquinaria General - Otros Servicios" Then
ComboBox2.Range ("AL128:AL132")
End If
If ComboBox1.Value = "Maquinaria hosteleria" Then
ComboBox2.Range ("AL134")
End If
If ComboBox1.Value = "Obras públicas y construcciones" Then
ComboBox2.Range ("AL137: AL160")
End If
If ComboBox1.Value = "Ofimatica" Then
ComboBox2.Range ("AL162: AL165")
End If
If ComboBox1.Value = "Otros elementos de manutencion" Then
ComboBox2.Range ("AL167: AL168")
End If
If ComboBox1.Value = "telecomunicaciones" Then
ComboBox2.Range ("AL170: AL174")
End If
If ComboBox1.Value = "transporte" Then
ComboBox2.Range ("AL176: AL190")
End If
If ComboBox1.Value = "tratamiento de la imagen" Then
ComboBox2.Range ("AL192: AL198")
End If
If ComboBox1.Value = "vehiculos" Then
ComboBox2.Range ("AL200: AL209

End If

End Sub