Printing the file path name is Excel 2000

[maacmaac]

I am using a script in VB by running a Macro to insert the full pathnam
of my file. The Macro works great. However, the problem I have i
that when I run the Macro, the font defaults to 10 point......I want
font of 6 point.

Any ideas on how to change the Macro so it will default to font 6 poin
everytime I run it?

Thanks

Sub PrintPathName()
ActiveSheet.PageSetup.RightFooter = ActiveWorkbook.FullName
End Su

 

[Ron de Bruin]

With ActiveSheet.PageSetup
.RightFooter = "&6" & ActiveWorkbook.FullName
End With

Try this