Fullname

Hola, Pepito !

Tengo en los libros la siguiente funcion para que me imprima el nombre del libro y la ruta en el pie de pagina.
Private Sub Workbook_BeforePrint(Cancel As Boolean)
Dim WS As Worksheet
For Each WS In Worksheets
WS.PageSetup.LeftFooter = ActiveWorkbook.FullName
Next
End Sub
Pero despues de formatear e instalar de nuevo me sale el siguiente mensaje:
Error 50290 Error en el metodo 'Fullname' del objeto '_Workbook'
Alguien sabe a que puede ser debido?
Porque el metodo 'Path' y el 'Name' funcionan correctamente

no hay mucha informacion [todavia] en relacin con el error '50290' por la web (( pero...
[al parecer] se trata de un 'error de diseño' [bug] en excel-xp [¿es el que estas usando???]
'sucede' cuando se presenta un dialogo y [por alguna razon] algun 'timer' [proceso] 'toma ocupada' a la aplicacion
como pudiera ser el caso al 'recorrer' [todas] las hojas del libro para 'ponerles' el 'FullName' en el 'PageSetup' :((
si no te 'vale' mover la configuracion del pie de pagina [p.e.] al evento 'Workbook_Open' [que NO 'presenta' dialogos]
=> o en el '_[De]Activate' de cada hoja [por si quisieras 'estar seguro' de NO 'cambios del usuario'] <prueba a 'recortar' el 'recorrido' por [todas] las hojas del libro a => [solo] las que se 'vayan a imprimir' <= [p.e.]
=>For Each WS In ActiveWindow.SelectedSheets<
saludos,
Héctor.