Format Header Date

  • Thread starter Thread starter Guest
  • Start date Start date
G

Guest

I have a monthly spreadsheet in which I have to change the date in the header
each month. I want to do this automatically so I use the &[Date] feature but
it gives me a format like: 11-11-07.

I would like it to show November 2007.

How can I do this?

Thanks.............TomCat
 
Put the following macro in the workbook code area:

Private Sub Workbook_BeforePrint(Cancel As Boolean)
ActiveSheet.PageSetup.LeftHeader = Format(Date, "mmmm yyyy")
End Sub
 
Worked great.........thanks!

Gary''s Student said:
Put the following macro in the workbook code area:

Private Sub Workbook_BeforePrint(Cancel As Boolean)
ActiveSheet.PageSetup.LeftHeader = Format(Date, "mmmm yyyy")
End Sub

--
Gary''s Student - gsnu200755


TomCat said:
I have a monthly spreadsheet in which I have to change the date in the header
each month. I want to do this automatically so I use the &[Date] feature but
it gives me a format like: 11-11-07.

I would like it to show November 2007.

How can I do this?

Thanks.............TomCat
Click to expand...
Click to expand...
 
One little Problem. I need the header to read Pending and Processing -
November 2007. When I use the macro, it only reads November 2007.

Gary''s Student said:
Put the following macro in the workbook code area:

Private Sub Workbook_BeforePrint(Cancel As Boolean)
ActiveSheet.PageSetup.LeftHeader = Format(Date, "mmmm yyyy")
End Sub

--
Gary''s Student - gsnu200755


TomCat said:
I have a monthly spreadsheet in which I have to change the date in the header
each month. I want to do this automatically so I use the &[Date] feature but
it gives me a format like: 11-11-07.

I would like it to show November 2007.

How can I do this?

Thanks.............TomCat
Click to expand...
Click to expand...
 
Private Sub Workbook_BeforePrint(Cancel As Boolean)
ActiveSheet.PageSetup.LeftHeader = "Pending and Processing - " &
Format(Date, "mmmm yyyy")
End Sub


--
HTH

Bob

(there's no email, no snail mail, but somewhere should be gmail in my addy)

TomCat said:
One little Problem. I need the header to read Pending and Processing -
November 2007. When I use the macro, it only reads November 2007.

Gary''s Student said:
Put the following macro in the workbook code area:

Private Sub Workbook_BeforePrint(Cancel As Boolean)
ActiveSheet.PageSetup.LeftHeader = Format(Date, "mmmm yyyy")
End Sub

--
Gary''s Student - gsnu200755


TomCat said:
I have a monthly spreadsheet in which I have to change the date in the
header
each month. I want to do this automatically so I use the &[Date]
feature but
it gives me a format like: 11-11-07.

I would like it to show November 2007.

How can I do this?

Thanks.............TomCat
Click to expand...
Click to expand...
Click to expand...
 
Back
Top