How do I copy cell contents to footer in Excel

[Access novice]

I would like to copy the contents of a cell into the footer of an Excel
worksheet.

 

[Jarek Kujawa]

Sub Footersss()
With ActiveSheet.PageSetup
.CenterFooter = ActiveCell.Text
End With
End Sub

HIH