Mostrar Resultado de Combobox en Celdas

H o  l a:

Puedes poner el código para actualizarlo

Este es el código, y funciona bien, pero me gustaría que al final el listado de nombres de cada Encabezado se mostrara en celda en lugar del listbox, gracias por tu ayuda

H o l a:

Te anexo unos ejemplos para que completes todos los casos:

Private Sub ComboBox3_Change()
    Range("E9:E32").ClearContents
    Set r = Nothing
    Select Case ComboBox3.Value
        Case "admin_personal"
            Set r = Range("admin_personal")
        Case "aplicación_personal"
            Set r = Range("aplicacion_personal")
        Case "nominas_salarios"
            Set r = Range("nominas_salarios")
    End Select
    If Not r Is Nothing Then
        r.Copy Range("E9")
    End If
End Sub

Ahora, si el nombre del rango es igual al valor del combobox3, entonces quedaría solamente esto:

Private Sub ComboBox3_Change()
    Range("E9:E32").ClearContents
    If ComboBox3.Value <> "" And ComboBox3.ListIndex > -1 Then
        Range(ComboBox3.Value).Copy Range("E9")
    End If
End Sub

'S aludos. Dante Amor. Recuerda valorar la respuesta. G racias

Gracias por la pronta respuesta Dante como siempre, te comento que he probado ambos códigos pero me muestra error '1004' error definido por la aplicación en ambos casos en la línea:

Set r = Range ("ADMIN_PERSONAL") De la primera opción

Y Range(ComboBox3.Value).Copy Range("E9") de la segunda opción 

¿Estás ejecutando la macro en la hoja donde tienes los nombres definidos?

¿Estás seleccionando un valor que tiene nombre definido?

¿Qué más dice el error?

Envíame las dudas que te comento y también envíame tu archivo para revisarlo

Mi correo [email protected]

En el asunto del correo escribe tu nombre de usuario “fernando garrido” y el título de esta pregunta.

Gracias Dante, muy amable, te acabo de enviar el archivo, gracias por la ayuda