I have spent much of the morning looking at various forums & threads but had no luck finding exactly what I need.

As you can see the code below updates the right headers for all sheets in my workbook with the value in sheet = VBlookup, Cell B1. I have several sheets in the work book that I don't want updated. Is it possible to specify which sheets the code update?

Thanks in advance

Sub CellInFooter()
Dim ws As Worksheet
For Each ws In ActiveWorkbook.Worksheets
ws.PageSetup.RightHeader = Range("VBlookup!B1").Text
Next ws
End Sub

Sub CellInFooter()
Dim ws As Worksheet
For Each ws In ActiveWorkbook.Worksheets _
(Array("Sheet1", "Sheet3", "Sheet5"))
ws.PageSetup.RightHeader = Range("VBlookup!B1").Text
Next ws
End Sub


Gord Dibben MS Excel MVP


On Tue, 25 May 2010 14:26:09 +0100, Microuch
wrote:


I have spent much of the morning looking at various forums & threads but
had no luck finding exactly what I need.

As you can see the code below updates the right headers for all sheets
in my workbook with the value in sheet = VBlookup, Cell B1. I have
several sheets in the work book that I don't want updated. Is it
possible to specify which sheets the code update?

Thanks in advance

Sub CellInFooter()
Dim ws As Worksheet
For Each ws In ActiveWorkbook.Worksheets
ws.PageSetup.RightHeader = Range("VBlookup!B1").Text
Next ws
End Sub

Worked a treat, thanks Gord.

Thanks for the feedback.

Gord

On Wed, 26 May 2010 10:48:33 +0100, Microuch
wrote:


Worked a treat, thanks Gord.

Gord Dibben;956056 Wrote:
Sub CellInFooter()
Dim ws As Worksheet
For Each ws In ActiveWorkbook.Worksheets _
(Array("Sheet1", "Sheet3", "Sheet5"))
ws.PageSetup.RightHeader = Range("VBlookup!B1").Text
Next ws
End Sub


Gord Dibben MS Excel MVP


On Tue, 25 May 2010 14:26:09 +0100, Microuch
wrote:
-

I have spent much of the morning looking at various forums & threads
but
had no luck finding exactly what I need.

As you can see the code below updates the right headers for all
sheets
in my workbook with the value in sheet = VBlookup, Cell B1. I have
several sheets in the work book that I don't want updated. Is it
possible to specify which sheets the code update?

Thanks in advance

Sub CellInFooter()
Dim ws As Worksheet
For Each ws In ActiveWorkbook.Worksheets
ws.PageSetup.RightHeader = Range("VBlookup!B1").Text
Next ws
End Sub-