VBA footer 2 entries required

[Hayton]

Hi Guys I have this code to insert data into the footer of an Excel Worksheet.

With Worksheets("Dashboard").PageSetup
.CenterFooter = "&""Tahoma,Regular""&8""© Company Name " & Year(Now())
.CenterFooter = "&""Tahoma,Regular""&8""Page &P of &N"
End With

However it does not insert both lines. it only inserts the last line "Page &P pf &N".

Is there a way I can get both lines inserted into the footer.

Any advice will be appreciated.

Hayton McGregor

 

[Bong]

I am not sure but I think you need to specify both lines as one string with a carriage return (chr(10)). Something like:
.CenterFooter = String1 & chr(10) & String2

_________________
Bob Rashkin

 

[AnotherHiggins]

Bong is correct.

You can use
.CenterFooter = "text" & Chr(10) & "string"
or
.CenterFooter = "text" & vbLf & "string"

[tt]_____
[blue]-John[/blue][/tt]
[tab][red]The plural of anecdote is not data[/red]

Help us help you. Please read FAQ181-2886 before posting.

 

[Hayton]

Thanks Guys problem solved.

However there is an open speachmarks being inserted at the start of the string, eg: "Page 1 of 10.

I have tried delting various speach marks in the script and get a compile error.

Coulg you please see if you spot what I am doing wrong.

Cheers

Hayton McGregor

 

[AnotherHiggins]

.CenterFooter = "&""Tahoma,Regular""&8© Company Name " & _
Year(Now()) & Chr(10) & "Page &P of &N"

BTW, you could easily get this code by using the macro recorder and typing a two-line footer. All you need to add to the recorded code is "Year(Now())".

[tt]_____
[blue]-John[/blue][/tt]
[tab][red]The plural of anecdote is not data[/red]

Help us help you. Please read FAQ181-2886 before posting.

 

[TonyJollans]

You don't show your final code but in your original post you have an extra set of "double quotes" ...

.CenterFooter = "&[red]""[/red]Tahoma,Regular[red]""[/red]&8[red]""[/red]Page &P of &N"

Enjoy,
Tony

--------------------------------------------------------------------------------------------
We want to help you; help us to do it by reading this: Before you ask a question.
Excel VBA Training and more Help at VBAExpress[

 

[Hayton]

Thanks Guys, i have used the record macro suggestion and all is well.

Cheers

Hayton McGregor