Saludos de nuevo y una cuestión.

Imanol,

Prueba con el codigo de abajo. No te olvides de hacer un backup de tu
fichero antes de usar el macro.

Saludos,
KL

'Inicio Codigo-
Sub test1()
For Each c In ActiveSheet.Cells. _
SpecialCells(xlCellTypeFormulas)
With ThisWorkbook
For Each n In .Names
If n.Name Like "pepe###" Then
c.Formula = Replace(c.Formula, n.Name, _
Right(n.RefersTo, Len(n.RefersTo) - 1))
End If
Next n
For Each n In .Names
If n.Name Like "pepe##" Then
c.Formula = Replace(c.Formula, n.Name, _
Right(n.RefersTo, Len(n.RefersTo) - 1))
End If
Next n
For Each n In .Names
If n.Name Like "pepe#" Then
c.Formula = Replace(c.Formula, n.Name, _
Right(n.RefersTo, Len(n.RefersTo) - 1))
End If
Next n
End With
Next c
End Sub
'Fin Codigo-

"Imanol" wrote in message
news:


x-no-archive:yes

Hola. Hace tiempo que no escribía aquí. O sea que un saludo inmenso para
todos.
Tengo una cuestión para no variar.
Tengo en una celda lo siguiente; ¡+pepe2 (pepex es el nombre que en su
momento
le asigné a la celda correspondiente).
En otras muchas celdas tengo otros nombres como por ejemplo, pepe3, pepe4,
etc.
¿ Cómo puedo hacer para cambiar ese pepex de cada una de las celdas por su
correspondiente a2, b4, g98, etc, sin tener que hacerlo a mano con cada una
de
las celdas (es decir, borro pepe1 y pongo d3,etc.) ?. Lo más sencillo y
cómodo
posible.
Gracias y un saludo.