easy VB Q

[spg2112]

Hello All,

What's wrong with this? I want a footer to dislpay Page "x" of total. b is just a counter and C101 is just a value (total #pages).

Thanks

With ActiveSheet.PageSetup
.LeftFooter = "F:USERFinDeptMBO-FY03Bonus and Comp Plans &F"
.CenterFooter = "Page " & b & "Of " & Worksheets("Splash").Range("C101").Value

[NateO]

Hard to say if b is failing but if F is a variable, change:

.LeftFooter = "F:USERFinDeptMBO-FY03Bonus and Comp Plans &F"

to

.LeftFooter = "F:USERFinDeptMBO-FY03Bonus and Comp Plans " & F

Get your variable outside of the quotes. You may want an end with to close your statement as well.

_________________
Cheers, NateO

[ This Message was edited by: NateO on 2002-05-09 09:22 ]

[spg2112]

Sorry, I should clarify...the left footer works fine, it's the center footer I'm having a problem with.

[NateO]

What's the problem with it? Error, b is nothing, etc.....?

[spg2112]

No error at all, just nothing for a center footer.

[NateO]

&F is short for the workbook name, I like it. Hard to say what the issue is, I ran the following:

Sub test()
With ActiveSheet.PageSetup
.LeftFooter = "F:USERFinDeptMBO-FY03Bonus and Comp Plans &F"
.CenterFooter = "Page " & " test " & "Of " & Worksheets("Splash").[c101].Value
End With

End Sub

And it worked....Except that the center footer is layered with the left footer due to page space constraints (normal margins, portrait set up). If you go to page set up and look at the custom footers, is the correct center footer present?


_________________
Cheers, NateO

[ This Message was edited by: nateo on 2002-05-09 11:18 ]