Hola

en una celda activa por una función, se copia un texto (referencia) de una base de datos. El texto siempre tiene una extensión final en referencia a un tipo de archivo (en mi caso és: ".html"); los carácteres de todo el texto(incluido el punto y la extensión) es de 12. Intento el script de copiar el texto, eliminar los 5 últimos carácteres, y pegar en la misma celda activa el resultado.

¿donde tengo el error?

Dim Cabecera As String

...

...

...

Selection.Value = filname               'Pego en la celda activa el texto (la referencia)

Cabecera = Mid (Active.Cells, 0, 7)    'Aquí no me funciona, supongo que referencio o interpreto                                                         erroneamente.

Gracias de antemano. 

:D