Activesheet.Pagesetup.Leftfooter = application.range("a1").value
Δείτε το συννημένο xls αρχείο επιλέγωντας enable macros