I forgot the formatting earlier...
This one does work...
With ActiveSheet.PageSetup
.LeftFooter = "&""Garamond"" &09" & Range("H1").Value
End With

I forgot about the quotes around the Fontname

Lt

"Adam Molinaro" wrote in message
...
I checked some earlier postings, and thought I found some solutions, but I
must still be missing something, because I am getting some funky results.

I am attempting to reference a cell value in my footer, which works fine,
however, when I try to also set the font name (type) and size, the footer
value prints HUGE on my page, like one character across the entire page
(at
least that what seems to be happening). I can't seem to accomplish both
tasks at the same time, but am fairly certain there should be a way.

I have tried a number of various lines of code, which are below, and
figure
I'm just slightly off with my syntax. Any assistance anyone can provide
would be appreciated. I have commented them all out while I was testing
each
one. The first line works, but does not give me the font name/size I
want.
The next two were meager attempts at an alternate solution, the fourth one
is
the one giving me the crazy output, and the fifth one gives me the footer,
but does NOT seem to give me the font name/size.

With ActiveSheet.PageSetup
'.LeftFooter = Range("H1").Value
'.LeftFooter.Font.Name = Garamond
'.LeftFooter.Font.Size = 9
'.LeftFooter = "&9" & Range("H1").Value
'.LeftFooter = Range("H1").Value & "&""Garamond,Regular""&9"
End With