Johnbrowning9
New Member
- Joined
- Mar 31, 2021
- Messages
- 4
- Office Version
- 365
- Platform
- Windows
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.
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.