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