Your code worked great but it leaves the font size at default, 10. Would you
mind providing the code to set the font size at 6 please? Thanks again in
advance, Carl

"Gord Dibben" wrote:

Thanks for the feedback.

Gord

On Wed, 17 Oct 2007 14:35:01 -0700, Carl wrote:

Thanks. Worked like a charm!

"Gord Dibben" wrote:

Sub CellInFooter()
With ActiveSheet
.PageSetup.CenterFooter = .Range("A1").Value & "Confidential"
End With
End Sub


Gord Dibben MS Excel MVP

On Wed, 17 Oct 2007 12:24:02 -0700, Carl wrote:

Is it possible to set up a footer in Excel with logic that will add a name
from a cell in one of the worksheets and the word "Confidential"? Thanks in
advance, Carl