Hard code date in header

J

Jan

Hi,

I am using Excel 2003. I would like to hard code the date in a header so
that once the file is saved that the date doesn't change when the file is
open a day or week later.

How would I have to change the following to do that. I'm relatively new at
this programming stuff so your help would be greatly appreciated.

Range("A4").Select
With ActiveSheet.PageSetup
.PrintTitleRows = "$1:$3"
.PrintTitleColumns = ""
End With

With ActiveSheet.PageSetup
.CenterHeader = "DSV - " & "&A" & Chr(10) & "Statement as of " & "&D"
End With

TIA
 
P

Per Jessen

Hi

..CenterHeader = "DSV - " & "&A" & Chr(10) & "Statement as of " & Date

Hopes this helps.
 

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Similar Threads

CODE in Access running excel will NOT set PrintTitleRows correctly 2
Printing Setup help 9
VB Printing problem 0
Slow PageSetup macro 3
Space at end of multi page list to accommodate new entries 1
Loop through pages and insert header image 0
Page setup too slow 2
PrintTitleRows 4

Top