Como abrir un formulario escogiendolo en un combobox: Aporte hecho por Diana Cañon.

En el UserForm Insertamos un ComboBox, y dos botones uno que se llame ir y el otro Salir .

En el UserForm Pegamos el siguiente Código teniendo en cuenta que se le cambia la opción a activate para que añada los Formularios que se quieren ver en el ComboBox:

Ahora en el codigo del boton que dice ir pegamos lo siguiente:

Private Sub CommandButton1_Click()
If ComboBox1 = "Renta 110" Then
Sheets("Renta 110").Select
End If
If ComboBox1 = "AspectosdeterminacionCREE 140" Then
Sheets("AspectosdeterminacionCREE 140").Select
End If
If ComboBox1 = "140 cree" Then
Sheets("140 cree").Select
End If
If ComboBox1 = "210" Then
Sheets("210").Select
End If
If ComboBox1 = "220" Then
Sheets("220").Select
End If
If ComboBox1 = "300" Then
Sheets("300").Select
End If
If ComboBox1 = "300-Anexos" Then
Sheets("300-Anexos").Select
End If
If ComboBox1 = "310" Then
Sheets("310").Select
End If
If ComboBox1 = "315" Then
Sheets("315").Select
End If
If ComboBox1 = "350" Then
Sheets("350").Select
End If
If ComboBox1 = "360" Then
Sheets("360").Select
End If
If ComboBox1 = "410" Then
Sheets("410").Select
End If
If ComboBox1 = "430" Then
Sheets("430").Select
End If
If ComboBox1 = "490" Then
Sheets("490").Select
End If
If ComboBox1 = "1302" Then
Sheets("1302").Select
End If
If ComboBox1 = "1381 soportes" Then
Sheets("1381 soportes").Select
End If
If ComboBox1 = "Solicitud acredit 1381" Then
Sheets("Solicitud acredit 1381").Select
End If
If ComboBox1 = "1732" Then
Sheets("1732").Select
End If
End Sub


De esta manera podemos escojer los formularios con mas facilidad porque no es necesario escribirlo.