a formula in footer

[lior03]

hello
i wanted to present a value of two cell in a footer .namely subtract one from the other and present it in a footer
[VBA]
Private Sub Workbook_BeforePrint(Cancel As Boolean)
ActiveSheet.PageSetup.CenterFooter = Format((Range("A36").Value - Range("D34")), "#,##0")
End Sub

[/VBA]
thanks

[Bob Phillips]

So what is wrong with what you have?