Add cell value to footer in printout

[EssKayKay]

I'm trying to add the value (text) of cell to the footer in a printout. The cell is in a sheet called Property in cell B3. Any suggestions?

Thanks for viewing,
Steve K.

 

[EssKayKay]

I should add a couple things. I would like the value if cell "B3" printed in the center of the footer. I have other items on the footer's left and right sides. Now maybe I'd even like to include Location: in front of the value in :B3" so it would read something like Location: 1234 Main Street

 

[EssKayKay]

I think I got this. I referenced the Property sheet's cell B3 in my active sheet as cell X5. Here's my code.

Private Sub Workbook_BeforePrint(Cancel As Boolean)
    With ActiveSheet.PageSetup
       .CenterFooter = "Location: " & Range("X5").Value
    End With
End Sub

I'm still working on how to directly reference sheet Properties.
I'm good for now . .

EDIT - REVISED. . .

   With ActiveSheet.PageSetup
     .CenterFooter = "Location: " & ActiveCell.FormulaR1C1 = "=Property!R[-11]C[-14]"
   End With

 

[EssKayKay]

I’m back with a similar question. Is there a way to format the center footer as BOLD or change the text/font size?

 

[Artik]

Record yourself a macro of the process of inserting and formatting the footer. In the recorded macro you will see the formatting codes .

Artik

 

[EssKayKay]

Record yourself a macro of the process of inserting and formatting the footer. In the recorded macro you will see the formatting codes .

Artik

Thank you Artik for getting back to me so soon. I did try to create a macro as you noted. I have it working if the address is hardcoded in. However, I want the address to come from a cell location (“X5”).

This “hardcoded” line works fine –
.CenterFooter = " &""Tahoma,Bold"" 1234 MAIN STREET "

This one does not work –
.CenterFooter = " &""Tahoma,Bold" & Range("X5").Value

I assume I have some syntax problem. Any suggestions?

Thanks again,
Steve K.

 

[Artik]

.CenterFooter = " &""Tahoma,Bold"" " & Range("X5").Value

Artik

 

[EssKayKay]

.CenterFooter = " &""Tahoma,Bold"" " & Range("X5").Value

Artik

.CenterFooter = " &""Tahoma,Bold"" " & Range("X5").Value

Artik

Once again Artik - thank you. That did what I have in mind. I added one item to increase the font size. It appears to be working.
.CenterFooter = "&12 &""Tahoma,Bold"" " & Range("X5").Value

Much appreciated,
Steve K.