If you use a macro code to set your header or footer, you can designate more than one line for them. Thus, you could have a two or three line header or footer, if desired. You do this by simply including the code Chr(13) into the string you use to set the header or footer. When used with the command codes discussed in other issues of ExcelTips, this is very powerful, indeed.
For instance, let's say you wanted a centered header that included your company name on the first line with today's date on the second. You would use the following code:
ActiveSheet.PageSetup.CenterHeader = "&C&BAmalgamated Widgets, Inc.&B" & Chr(13) & "&D"
Note the use of the &B command code to make the company name bold. The second use of the command code is to turn the bold attribute off, so that the date does not end up being bold. Also, note the use of the &C command code. Remember that the use of positioning command codes such as these overrides placement. Thus, the following code (which would normally place the information at the left side of the header) has the exact same results as the previous code:
ActiveSheet.PageSetup.LeftHeader = "&C&BAmalgamated Widgets, Inc.&B" & Chr(13) & "&D"
Note:
ExcelTips is your source for cost-effective Microsoft Excel training. This tip (1992) applies to Microsoft Excel 97, 2000, 2002, and 2003.
Save Time and Supercharge Excel! Automate virtually any routine task and save yourself hours, days, maybe even weeks. Then, learn how to make Excel do things you thought were simply impossible! Mastering advanced Excel macros has never been easier. Check out Excel 2010 VBA and Macros today!
When preparing a worksheet for printing, you may want to include in the header or footer the last date the workbook was ...
Discover MoreChanging the look of default headers and footers for your Excel workbooks.
Discover MoreExcel allows you to add footers to the worksheets you create. If you decide you don't need a footer any more, here's how ...
Discover MoreFREE SERVICE: Get tips like this every week in ExcelTips, a free productivity newsletter. Enter your address and click "Subscribe."
2018-11-30 10:09:56
laura
The first one doesn't work, the second one works. the only difference is left part of equal sign. the right parts are the same. is it because the text is too long? but how come the second one works? anyone can help? thanks!
.LeftFooter ="&6" & "For Investment Professional use only, not to be shown or distributed to clients, prospective clients, or the general public." & Chr(13) & "Performance shown is net of Fund fees and expenses, except where indicated. Past performance does not guarantee future results."
.FirstPage.LeftFooter.Text = "&6" & "For Investment Professional use only, not to be shown or distributed to clients, prospective clients, or the general public." & Chr(13) & "Performance shown is net of Fund fees and expenses, except where indicated. Past performance does not guarantee future results."
2018-11-29 16:52:05
laura
The first one doesn't work, the second one works. the only difference is left part of equal sign. the right parts are the same. is it because the text is too long? but how come the second one works? anyone can help? thanks!
.LeftFooter ="&6" & "For Investment Professional use only, not to be shown or distributed to clients, prospective clients, or the general public." & Chr(13) & "Performance shown is net of Fund fees and expenses, except where indicated. Past performance does not guarantee future results."
.FirstPage.LeftFooter.Text = "&6" & "For Investment Professional use only, not to be shown or distributed to clients, prospective clients, or the general public." & Chr(13) & "Performance shown is net of Fund fees and expenses, except where indicated. Past performance does not guarantee future results."
2018-11-29 16:45:51
laura
The first one doesn't work, the second one works. the only difference is left part of equal sign. the right parts are the same. is it because the text is too long? but how come the second one works? anyone can help? thanks!
.LeftFooter ="&6" & "For Investment Professional use only, not to be shown or distributed to clients, prospective clients, or the general public." & Chr(13) & "Performance shown is net of Fund fees and expenses, except where indicated. Past performance does not guarantee future results."
.FirstPage.LeftFooter.Text = "&6" & "For Investment Professional use only, not to be shown or distributed to clients, prospective clients, or the general public." & Chr(13) & "Performance shown is net of Fund fees and expenses, except where indicated. Past performance does not guarantee future results."
2018-11-29 16:37:39
laura
I have two exact the same statements using Chr(13) in the same module for two different pages, one statement works the other doesn't work. can 't figure out why. any thoughts?
2017-09-28 13:54:16
Mark
I have the following line in my macro code:
With ActiveSheet.PageSetup
.CenterHeader = "&F" & Chr(10) & "&A"
This seems to follow the format mentioned above, but I only get the filename and nothing else. The macro doesn't error out, it just doesn't put the carriage return and tab name in. I realize this is using Chr(10), but I've also tried Chr(13) to no avail. Any thoughts?
2015-03-27 09:58:05
Chuck Siegmann
This is great, but how do you create multiple heared lines when you don't use macro codes to set the headers and footers. Limitations like this is why i spend so much time creating tables in Word.
2014-11-18 10:12:23
Don
It's frustrating when you have ads that cover up text in your article.
Got a version of Excel that uses the menu interface (Excel 97, Excel 2000, Excel 2002, or Excel 2003)? This site is for you! If you use a later version of Excel, visit our ExcelTips site focusing on the ribbon interface.
FREE SERVICE: Get tips like this every week in ExcelTips, a free productivity newsletter. Enter your address and click "Subscribe."
Copyright © 2019 Sharon Parq Associates, Inc.
Comments