Buenas, tengo una inquietud, alguien me podria ayudar con un macro para asignar nombres de rango desde valores de celda segun el archivo que adjunto espero su comentario.

Salu2

Esto lo consegui con esta macro, genera una hoja con los nombre definidos de los rangos del libro.

Sub List_All_Defined_Names()

Set NewSheet = ActiveWorkbook.Worksheets.Add

i = 1

For Each nm In ActiveWorkbook.Names

    NewSheet.Cells(i, 1).Value = nm.NameLocal

    NewSheet.Cells(i, 2).Value = "'" & nm.RefersToR1C1Local

    i = i + 1

Next

End Sub[/CODE]

Ejemplo nombres de rango.rar

Hola,

Revisa el adjunto y me dices si es lo que necesitabas....

Un saludo

Ejemplo nombres de rango.rar

Excelente Jose71, muy buen trabajo es exacto lo que necesito.

muchas gracias !!!!! :drunk:

un fuerte abrazo.

:worked_till_5am:

salu2.xlsx