I got it to work with 191 as cell length but got your error when length was
307. So I guess the limit is 256 or 255.
If I have in D5 the value 1234 formatted to show $1,234.00 then the footer
does not get the format.
I expect you could use a Application.TEXT(D5,"$0,000.00) type of thing but
it seems we have found your problem - too much data!
best wishes
--
Bernard V Liengme
www.stfx.ca/people/bliengme
remove caps from email

"Steve E" wrote in message
...
Well... not really. Still get the same error.

I have this in the *workbook* module [right click on the excel icon in
menubar and 'view code'...]

Does it matter how the cell I'm referencing is formatted? [General] or how
many characters are in that field? [742]

??

Thanks in advance!

Steve
"Bernard Liengme" wrote:

You code worked for me when placed in a *workbook* module
I changed line 3 to .PageSetup.CenterFooter = .Range("D59")
That is, I removed .TEXT
Any help?
--
Bernard V Liengme
www.stfx.ca/people/bliengme
remove caps from email

"Steve E" wrote in message
...
Gord,

I'm trying to do basically the same thing but when I used this version
of
the code:

Private Sub Workbook_BeforePrint(Cancel As Boolean)
With Sheets("Quote Form")
.PageSetup.CenterFooter = .Range("D59").Text
End With
End Sub

I get a runtime error: "Unable to set the CenterFooter property of the
PageSetup class"

I'm also interested in the font formatting info but will be soooo happy
if
I
can just make this part work.

ALso, there are several other sheets in this workbook that I don't want
to
print this particular footer on... does using the BeforePrint event
here
mean that I need to do that for each worksheet - specify the sheet and
the
text in the VBE editor?

Thanks,

Steve E


"Gord Dibben" wrote:

Instead of With ActiveSheet

With Sheets("Project Inputs")

Not sure how to change font and size.

Will work on it while waiting for someone to leap in.


Gord

On Tue, 22 Aug 2006 09:01:02 -0700, djoslyn

wrote:

Thank you. Any way to link it to a certain sheet called Project
Inputs,
versus only the active sheet. Also, what are the chances I can
select
the
font and sized of the footer?

Thanks again

"Gord Dibben" wrote:

Sub CellInFooter()
With ActiveSheet
.PageSetup.CenterFooter = .Range("A1").text
End With
End Sub

Better yet...............

Place the code in a BeforePrint event.

Private Sub Workbook_BeforePrint(Cancel As Boolean)
With ActiveSheet
.PageSetup.CenterFooter = .Range("A1").Text
End With
End Sub

Right-click on the Excel Icon left of "File" on the menubar.

Select "View Code"

Copy/paste the BeforePrint code above into that module.


Gord Dibben MS Excel MVP

On Mon, 21 Aug 2006 14:47:32 -0700, djoslyn

wrote:

I'm trying to set up spreadsheets where the footer changes
depending
on
certain cells contents. Has anyone been able to do that?

Thanks.