Custom Header date value as date

[christobal]

I have a print function which shows a small area of a worksheet. Thi
area has a range (date) which returns a date. How can this date b
formatted in the PageSetup..RightHeader field to represent the date an
not the date value i.e.
" Date 12/12/2004" and not "Date 38333

 

[Frank Kabel]

Hi
try something like

PageSetup.RightHeader = format(Range("A1").value,"MM/DD/YYYY")

 

[christobal]

This returns Error 1

 

[Frank Kabel]

Hi
You have to add the worksheet object. e.g.
activesheet.PageSetup.RightHeader =
format(Range("A1").value,"MM/DD/YYYY")