Excel XP Footer Macro

sunjazz

When we save the document to the DMS server, updating the footer does not work on a save event. We can go into the VB Editor and save which does update the footer.

Here is the event code we have been playing with to simply trigger the footer.

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
ActiveSheet.PageSetup.LeftFooter = 'TEST"
End Sub

Any ideas would be greatly appreciated.