Hi
Sub MyFooter()
Dim StrFtr As String, Rng As Range, Sh As Worksheet, c As Range
Set Sh = Worksheets("Sheet1")
Set Rng = Sh.Range("A51:G51")
For Each c In Rng
StrFtr = StrFtr & c & " "
Next c
ActiveSheet.PageSetup.LeftFooter = StrFtr
End Sub
HTH
On Mon, Jun 17, 2013 at 4:26 PM, Ira wrote:
Hi
I cannot send you the complete file because it is big file due to group
restriction I have set example, in the file suppose I want to repeat
rows A73:J76
I will be fixing these rows at the last rows of the sheet because my
data is large, that I want to repeat at the bottom of the each page.
Subject: Re: $$Excel-Macros$$ Re: Row to repeat at the bottom of each page
Hi,
Excel having options for "Rows to Repeat at Top" - Press Alt + P + I, Select
the Range and OK.
There is no in-build function for Rows to Repeat at Bottom, You can try
below codes to show it in foote
Hi,
Excel having options for *"Rows to Repeat at Top" *- Press Alt + P + I,
Select the Range and OK.
There is no in-build function for *Rows to Repeat at Bottom*, You can try
below codes to show it in footer.
Sub MyFooter()
Dim StrFtr As String, Rng As Range, Sh As Worksheet, c As Range
