Formel in Fußzeile

Wie kann man die Formel aus Tabelle1, Zelle A1 in die Fußzeile übertragen ? 
Private Sub Workbook_BeforePrint(Cancel As Boolean)
   ActiveSheet.PageSetup.CenterFooter = Sheets("Tabelle1").[A1].Formula
End Sub