I received the following VB macro from someone and would like to know how I can
make this available for every workbook I open in Excel. Can someone tell me how
I should be saving this?
Sub FileName_In_Footer()
'
'Puts full filename and path in left footer
' Date and Time in Right Footer
'
'
With ActiveSheet.PageSetup
.LeftFooter = "&""Arial""&6" & "Bost " & ActiveWorkbook.FullName & "-" &
ActiveSheet.Name
.CenterFooter = "Page &P of &N"
.RightFooter = "&10" & "&D &T"
End With
End Sub
Thanks!
Darlene
Do you want to signoff PCSOFT or just change to
Digest mode - visit our web site:
http://nospin.com/pc/pcsoft.html
|