Extraer nombre de archivo

hola, Paolita !

... tengo una macro y necesito extraer el nombre del archivo excel en una variable ...

1) declara una variable de tipo cadena de texto (p.e.)
Dim elArchivo As String

2) obten el nombre y asignalo a la variable dependiendo de "el archivo" -???-

a) el nombre del archivo donde estan tus macros ???
alArchivo = ThisWorkbook.Name

b) el libro activo (aun si no es el que contiene tus macros) ???
elArchivo = ActiveWorkbook.Name

saludos,
hector.