Shouldn't you be updating the footer field like this?

Code:
ActiveDocument.Sections(ActiveDocument.Sections.Count).Footers(1).Range.Fields.Update