Need to format font in a custom header

J

jeff

Hi,

You're better than you think...go record a macro doing
just what you want and then view it to see how close you
really are.

jeff
-----Original Message-----
Hi

I have a custom header that I need to format to text
Click to expand...
size = 28, bold, single underline. This header is VB
code, and I am just not the programmer I ought to be.
Any suggestions? Thanks in advance

Here's the code:

Private Sub Workbook_Open()

Dim wsSheet As Worksheet
For Each wsSheet In Worksheets
wsSheet.PageSetup.CenterHeader = "ESM
Click to expand...
Group - " & wsSheet.Name & "From " & Format(Now() - 7, "m-
d-yy") & " to " & Format(Now(), "m-d-yy")
 
Top