Macro que modifique la celda actual

¡Importante!: Colabora con el grupo.Contesta a este mensaje
y dinos si te sirvió o no la respuesta dada. Muchas gracias.

Puesto en un botón el código puede ser el siguiente:

Sub Botón1_AlHacerClic()
ActiveCell.Value = Left(ActiveCell.Value, -3 + Len(ActiveCell))
End Sub


SALUDOS.
Julián-Valencia-España
http://ijulian.iespana.es/


"Ubaldo" escribió en el mensaje
news:

Hola a todos

Podeis ayudarme a crear una Macro que cuando yo la ejecute esta coja el
contenido de la celda actual la edite para quitarle tres caracteres del
final
y vuleva a dejar el nuevo valor en la celda.

Por ejemplo si me situo en una celda que pone Barcelona y ejecuto la
macro,
me cambie la ceda y ponga Barcel, o sea le quite las 3 finales.

Gracias