Header & Footer text

[SHETTY]

Dear Friends

I want to put value from a particular cell to header & footer text . Is this
is possible ?

I want to change the header footer text as and when text in the cell "A1"
cell changes

Please help

Ramesh Shetty

 

[Shasur]

Hi

You can try that in Worksheet_Change event of that particular sheet

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$A$1" Then
ActiveSheet.PageSetup.CenterHeader = Range("C3")
ActiveSheet.PageSetup.CenterFooter = Range("D4")
End If
End Sub

Cheers

 

[SHETTY]

Thanks it works

ramesh

Hi

You can try that in Worksheet_Change event of that particular sheet

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$A$1" Then
ActiveSheet.PageSetup.CenterHeader = Range("C3")
ActiveSheet.PageSetup.CenterFooter = Range("D4")
End If
End Sub

Cheers