Footer Linked Range (Multiple Cells)

[Johnbrowning9]

I would like to be able to have a footer that is linked to a range on the same sheet (AL1:AM4). (If possible) Or if it is not able to, just a way to stack the cells and create multiple rows

The Current code I created allows me to do this but it is in a single line.

Example

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Dim Sh As Worksheet
For Each Sh In Me.Worksheets
Sh.PageSetup.LeftFooter = ActiveSheet.Range("AL1").Text + " " + ActiveSheet.Range("AL2").Text + " " + ActiveSheet.Range("AM2").Text + " " + ActiveSheet.Range("AL3").Text + " " + ActiveSheet.Range("AM3").Text + " " + ActiveSheet.Range("AL4").Text + " " + ActiveSheet.Range("AM4").Text


Next Sh
End Sub

I am trying to get it to look like this

I have no idea how to get them to stack (If that is even what you call it) . The cells are linked in the macro just side by side and not on top of each other.

Just looking for some help.

 

[Fluff]

Hi & welcome to MrExcel.
Try replacing some of the " " with vbLf

 

[Johnbrowning9]

Hi & welcome to MrExcel.
Try replacing some of the " " with vbLf

You are my hero

 

[Fluff]

You're welcome & thanks for the feedback.