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