nombres de rango con macro

Potter08 · January 23, 2013

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