VBA headers and footers

[Russk68]

Hi All
I would like to have 6 cells in a sheet with each one representing a position. I would like the header and footer on every sheet to reference what's in each cell.
Possible?

Thank you!

 

[Peter_SSs]

Is this the sort of thing you mean?

ActiveSheet.PageSetup.LeftHeader = Range("A1").Text

 

[Russk68]

Hi Peter
I'm not sure where to put that from what I'm thinking.
Example: Sheet 1 would be where I enter text in A1 to show up in left header. All sheets then have A1 text in the left header.

Thank you!

 

[Peter_SSs]

I'm not sure where to put that from what I'm thinking.
Example: Sheet 1 would be where I enter text in A1 to show up in left header. All sheets then have A1 text in the left header.

- All sheets would have the A1 text from cell A1 in Sheet 1?
or
- All sheets would have the text from cell A1 in their own sheet?

 

[Russk68]

Hi Peter
The first choice.
Thanks

 

[Peter_SSs]

Hi Peter
The first choice.
Thanks

Try something like this then.

Sub AddHeaders()
  Dim ws As Worksheet
  
  For Each ws In Worksheets
    ws.PageSetup.LeftHeader = Sheets("Sheet1").Range("A1").Text
  Next ws
End Sub

 

[Russk68]

Hi Peter

Do I put the code in sheet 1?

I'm going to give it a shot here. Is this how to add the other headers?

Sub AddHeaders()
  Dim ws As Worksheet
  
  For Each ws In Worksheets
    ws.PageSetup.LeftHeader = Sheets("Sheet1").Range("A1").Text
    ws.PageSetup.RightHeader = Sheets("Sheet1").Range("B1").Text
 Next ws

End Sub

 

[Russk68]

It works!
What a time saver this is.
Thank you Peter!

 

[Peter_SSs]

Do I put the code in sheet 1?

I would put it in a general Module, not a worksheet module, though it shouldn't hurt in a worksheet module (unless you subsequently delete that worksheet).