Inserting full paths in Excel footers

It turns out that older versions of Excel can’t do this without some assistance. Here’s a macro that will accomplish it:

Sub InsertPathInFooter()
  ActiveSheet.PageSetup.LeftFooter = Application.ActiveWorkbook.FullName
End Sub

Damn long-winded syntax.