Is there any way I can customize my footer.

I have some text in left, center and right section of footer but the text is
too big. Is there any way I can insert a blank line vbNewLine in the footer.

Help would be appreciated and thanks in advance.

Regards,

Private Sub Workbook_BeforePrint(Cancel As Boolean)
ActiveSheet.PageSetup.LeftHeader = "some text" & vbNewLine & "some more"
End Sub

'This is workbook event code.
'To input this code, right click on the Excel icon on the worksheet
'(or next to the File menu if you maximise your workbooks),
'select View Code from the menu, and paste the code


--

HTH

RP
(remove nothere from the email address if mailing direct)


"VJ" wrote in message
...
Is there any way I can customize my footer.

I have some text in left, center and right section of footer but the text
is
too big. Is there any way I can insert a blank line vbNewLine in the
footer.

Help would be appreciated and thanks in advance.

Regards,