Link Header to a cell

[pagrender]

Hello,

Is there a way to have a header be populated by the value in a cell?

For example, I want the header to reflect the value of cell A1.

I've been trying some things but haven't had any luck.

Thanks.

 

[repairman615]

If the header is in a cell, then simply put =a1 in that cell.

 

[pagrender]

I found this code online but it doesn't work. I get a "Compile Error: Expected End With" message. Can someone let me know what's wrong?

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$B$3" Then
With ActiveSheet.PageSetup.LeftHeader = [B3]
End Sub

 

[repairman615]

Sub headerofactivesheet()
    ActiveSheet.PageSetup.CenterHeader = "Is this it?"
End Sub

I think I see now..

 

[repairman615]

Sub headerofactivesheet()
ActiveSheet.PageSetup.CenterHeader = range("a1").value
End Sub

 

[pagrender]

Thanks Repairman!

I found this while I was waiting, and it looks exactly like your solution:

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

Thanks again!

 

[repairman615]

Your welcome and I believe you could also do rightheader...seems there is three orientations.

 

[ICdeadppl]

Hi all

I would like to continue this discussion further, is there a way to add "last updated &date & time" on a seperate line

Sub headerofactivesheet()
ActiveSheet.PageSetup.RightHeader = "Version " & Range("b1").Value & " Last updated " & Date & " - " & Time
End Sub

 

[ICdeadppl]

Solved

Sub headerofactivesheet()
ActiveSheet.PageSetup.RightHeader = "Version " & Range("b1").Value & Chr(10) & " Last updated " & Date & " - " & Time
End Sub

 

[HankJ]

Hi

Picking up on an old trend.

I would like to turn this topic on it's head and ask if there is a way of copying the contents of Header Left to Cell A1.

Many thanks

Hj