Date Prompt for Header

[jrobin5881]

Is there a VBA command for inserting the date into the header? I envision something like my user opens the Excel file and a input box would open prompting for the date. I store that in a variable that would update the header section in the worksheet.

 

[PHV]

Have you tried the macrorecorder ?

Hope This Helps, PH.
Want to get great answers to your Tek-Tips questions? Have a look at FAQ219-2884 or FAQ222-2244

 

[jrobin5881]

I did that first "Path of least resistance" - but I need to store the user input in a variable so that I can prompt for a response each time the workbook opens.

 

[PHV]

Take a look at the InputBox function.

Hope This Helps, PH.
Want to get great answers to your Tek-Tips questions? Have a look at FAQ219-2884 or FAQ222-2244

 

[jrobin5881]

Sorry, should be more explicit in my problem. I know how the inputbox works and I use that info to paste into specific cells. Example Sheet2.Cells(23, 1) = Dateinput. What I need is to put the user response into the header. so would it be Header.Cells = Dateinput ???

 

[PHV]

So, again, have you tried the macrorecorder for the header stuff ?

Hope This Helps, PH.
Want to get great answers to your Tek-Tips questions? Have a look at FAQ219-2884 or FAQ222-2244

 

[kaatjev]

The macro recorder will give you something like

 With ActiveSheet.PageSetup
        .PrintTitleRows = "$1:$1"
        .PrintTitleColumns = ""
        .PrintArea = ""
        .LeftHeader = "blah blah"
        .CenterHeader = "blah blah"
        .RightHeader = "blah blah"
        .LeftFooter = "&F"
        .CenterFooter = "Page &P of &N"
        .RightFooter = "&T"
etc etc etc

You will want to change the "blah blah" to sDateInput or whatever your variable is.

e.g.
        .CenterHeader = sDateInput