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.
Comprehensive VBA Guide Visual Basic for Applications (VBA) is the language used for writing macros in all Office programs. This complete guide shows both professionals and novices how to master VBA in order to customize the entire Office suite for their needs. Check out Mastering VBA for Office 2010 today!
When you have a worksheet that includes a long list of names, you may want the first and last names on each page to ...
Discover MoreNeed to copy headers and footers from one worksheet to another? How about from one workbook to another? Here are some ...
Discover MoreUsing a macro to add the full path name into a header or footer in an Excel worksheet.
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 © 2020 Sharon Parq Associates, Inc.
Comments