I finally got it, thanks to Ivan F Moala and
http://www.mrexcel.com/archive/VBA/18199.html

Private Sub btnTitle_Click()
Dim strTitle As String

strTitle = frmPageTitle.txtTitle.Value

ActiveSheet.PageSetup.CenterHeader = "&""Arial,Bold""&14 " & strTitle _
& Chr(10) & (Date)

frmPageTitle.Hide
End Sub

"DDawson" wrote:



"DDawson" wrote:

Is there a way to make Excel ask for Custom Header Text after sending a print
command.

I want to be able to print out Autofiltered Tables and have specific titles
for them according to the data I've filtered.

If Excel could ask me for the Title text before the print, this would be
ideal.

Regards
Dylan