About Us

Carl

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

Gord Dibben

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

Carl

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

Gord Dibben

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

Carl

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

Gord Dibben

Sub CellInFooter()
With ActiveSheet
.PageSetup.CenterFooter = "&""Arial,Regular""&6" & Range("A1").Value
End With
End Sub

Gord

On Fri, 19 Oct 2007 12:44:02 -0700, Carl wrote:

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

Thread Tools	Search this Thread
Show Printable Version	Search this Thread: Advanced Search
Display Modes
Switch to Linear Mode Hybrid Mode Switch to Threaded Mode

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
why is ...xls] being added to the name on my worksheet?	beauwl	Excel Worksheet Functions	2	October 3rd 07 05:00 PM
How do you insert a worksheet into a footer?	doosz77	Excel Discussion (Misc queries)	1	May 7th 07 04:30 PM
Worksheet name in footer	mike_vr	Excel Discussion (Misc queries)	4	March 2nd 07 11:53 AM
Can a creation date be added to a footer	rogerl_uk	Excel Discussion (Misc queries)	3	June 2nd 06 02:03 PM
Stop Worksheet being added	John Calder	New Users to Excel	3	September 29th 05 03:07 PM

Menu

About Us