Retrieve text from CenterHeader

[louiserace]

Hi

I am trying to retrieve the text that is in the center header

At the start of the program I ask the user for a sheet title

sheetTitle = InputBox("Please input title for sheet", "Title")

which I later use in the print setup

With ActiveSheet.PageSetup        
      .CenterHeader = "&""Calibri,Bold""&20" & sheetTitle
End With

However, if the program is run again, I would like to put the current header as the default on the inputBox.

I am sure there must be an easy way to do this but I cannot find it, so I am hoping someone can help.

Thanks

 

[Domenic]

Try...

With ActiveSheet.PageSetup
      sheetTitle = InputBox("Please input title for sheet", "Title", .CenterHeader)
      .CenterHeader = sheetTitle
End With

Hope this helps!