file name in footer

[Guest]

how do I create a macro to insert the file name on the last page footer of a
powerpoint presentation? Thx!

 

[Guest]

This is "aircode" but I guess it would it:

Sub footerme()
Dim n As Integer
n = ActivePresentation.Slides.Count
ActivePresentation.Slides(n).HeadersFooters.Footer _
..Text = ActivePresentation.Name
End Sub

 

[Guest]

thank you...it is working except for one thing...how do I get it to
automatically update if filename is changed and be automatically put on last
page of the presentation? Thanks again for all your help!