Results 1 to 7 of 7

Header Date Modified - Adjusting Font Style and Size Problems

Threaded View

  1. #1
    Registered User
    Join Date
    04-01-2009
    Location
    New York
    MS-Off Ver
    Excel 2007
    Posts
    5

    Header Date Modified - Adjusting Font Style and Size Problems

    Help!

    I found this way of adding code to the Header of my excel sheet so that it posted the Date Modified (as opposed to the current date). This all works fine, except when I tried to adjust the code to adjust the font style and size, it doesn't work properly.

    This was what was recommended... and it works great!
    Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
        For Each ws In ActiveWorkbook.Worksheets
           ws.PageSetup.RightHeader = Format(Now, "mm/dd/yyyy hh:mm")
        Next
    End Sub
    This is how I adjusted the font style and size... the font works, the italics works... however the font size when I look at it is actually 409pts. HELP. What on earth is going on??
    Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
        For Each ws In ActiveWorkbook.Worksheets
           ws.PageSetup.RightHeader = "&""Avenir LT Book""&I&7" & Format(Now, "mm/dd/yyyy hh:mm")
        Next
    End Sub
    This adjusting code stuff is VERY new for me and right now I am just trying to find a quick fix for my client as they are trying to get their price sheets out the door... way over due.

    ANY Help would be greatly appreciated!

    Thanks!
    Last edited by Leith Ross; 04-01-2009 at 05:22 PM. Reason: Addewd Code Tags

Thread Information

Users Browsing this Thread

There are currently 1 users browsing this thread. (0 members and 1 guests)

Bookmarks

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts

Search Engine Friendly URLs by vBSEO 3.6.0 RC 1