Runtime error 1004 - Unable to set the center footer property of the page setup class

[UNTITLED]

How can I fix 'Runtime error 1004 - Unable to set the center footer property of the page setup class' I would like a reference to a cell in the footer.

Sub UpdateFooter()
   ActiveSheet.PageSetup.CenterFooter = Range("A1").Value
End Sub

 

[RoryA]

Do you have a printer installed on the machine where you are running the code?

 

[UNTITLED]

I have tried running the code on a computer with a printer installed, but not at the moment

 

[RoryA]

It definitely won't work without one installed.

 

[UNTITLED]

But why doesn't it work with one installed

 

[RoryA]

I've never seen that error other than with no printer. Is the printer installed for the user you were running the code as? (were you running it on a server?)

 

[UNTITLED]

Ok its working now but it displays the cell reference opposed to the contents of the cell

 

[RoryA]

It should show the value of the cell. (you cannot establish a dynamic link between the two)