insert named cell in header
 

Hi! I have a workbook with multiple sheets using the same header. I'm trying
to insert the contents of a named cell from the first worksheet into the
header that is used for all of the other worksheets. The first sheet is
called Data Entry. The named cell is Target. The header would look like this:
Company name: <Target

Your help would be greatly appreciated!

insert named cell in header
 

Sub Name_All_Sheets()
Set wkbktodo = ActiveWorkbook
For Each ws In wkbktodo.Worksheets
ws.PageSetup.RightFooter = "Company Name: " & Range("Target").Value
Next
End Sub


Gord Dibben MS Excel MVP

On Sun, 23 Sep 2007 09:16:01 -0700, Giggly4g
wrote:

Hi! I have a workbook with multiple sheets using the same header. I'm trying
to insert the contents of a named cell from the first worksheet into the
header that is used for all of the other worksheets. The first sheet is
called Data Entry. The named cell is Target. The header would look like this:
Company name: <Target

Your help would be greatly appreciated!