Automatic Footer

[ExecEd]

I'd like to create some code that would, upon saving a file, automatically add a centered footer containing FILE, TAB.

Any ideas?

Many thanks for this great service!

 

[hawley]

Try something like this in the before save sub of the workbook. I hope this helps.
The &F stands for filename.

Private Sub Workbook_BeforeSave()

With ActiveSheet.PageSetup
.CenterHeader = "&F"
End With
End Sub

 

[nancyo]

Enter the following macro (or a variation on it)in ThisWorkbook:

Private Sub Workbook_BeforeClose (Cancel as Boolean)
For Each sht in AcitveWorkbook.Sheets
sht.PageSetup.CenterFooter = ActiveWorkbook.FullName
Next sht
End Sub

 

[ExecEd]

Thanks for the help!