Display cell values in header

[lodijanssens]

Hi,

I have this VBA to display the cell A1 in the header of the active worksheet. But how do you display the value of cell A1 of sheet 1 in the header of all worksheets?
And how do you display multiple values? For example I want to display A1, B4 and C6 in the header (of the whole workbook).
Thanks a lot!! I'm stuck as a beginner

Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
ActiveSheet.PageSetup.LeftFooter = Range("A1").Text
End Sub

 

[RedBeard]

See if this does what you want it to:

Private Sub Header_to_sheets()

    Dim ws As Worksheet
    
    For Each ws In ActiveWorkbook.Worksheets
        ws.PageSetup.LeftHeader = Sheet1.Range("A1").Value & " " & Sheet1.Range("B4").Value & " " & Sheet1.Range("C6").Value
    Next ws

End Sub