Macro for footer help

[richardcdahlgren]

I have 3 cells (Q1:Q3) that have dates that sometimes get changed. I need a macro for entering these dates into the right footer. I have looked all over and found a few codes that have message boxes, but I really don't need a message box, just a simple code for 3 cells to reflect in the footer. Thank you!

 

[Norie]

This will put the 3 values from Q1:Q3 of the active sheet in the right footer of the active sheet.

Sub SetFooter()
    ActiveSheet.PageSetup.RightFooter = ActiveSheet.Range("Q1").Text & " " & ActiveSheet.Range("Q2").Text & " " & ActiveSheet.Range("Q3").Text
End Sub

 

[richardcdahlgren]

Wow that was easy. Thank you SO MUCH!!