Range.ListNames (Excel)
Pega una lista de todos los nombres no ocultos en la hoja de cálculo, comenzando por la primera celda del rango.
Utilice la propiedad Names para devolver una colección de todos los nombres de una hoja de cálculo.
ActiveCell.ListNames