Print Sheet Title Formatting

I'm trying to use VBA coding to format the title on a sheet before it prints. I know how to code it if the title is always the same. I also know how to insert the variable title ( see below ). Now I'm stuck because I can't format it.

sheetname3 = Range("e1")
ActiveSheet.PageSetup.CenterHeader = sheetname3
End Sub

Therfore, this will insert the contents of cell E1 into the top of the printed sheet, but the formatting will be default settings.