Reference last cell in Col A in footer

pilot

Active Member
Joined
Feb 17, 2002
Messages
345
Dates appear in Col A. I'd like the BeforePrint event to set the right footer as follows:

As of [last date in Col A]

I found examples that would do this if I knew the exact cell. How would this be done with a relative reference to the last cell in A?
 

Excel Facts

What is the shortcut key for Format Selection?
Ctrl+1 (the number one) will open the Format dialog for whatever is selected.

Jay Petrulis

MrExcel MVP
Joined
Mar 17, 2002
Messages
2,040
Hi,

Try the following, or something like it...

<pre>Private Sub Workbook_BeforePrint(Cancel As Boolean)
Dim LastCell As Range

With ActiveSheet
Set LastCell = .Cells(.Cells(Rows.Count, 1).End(xlUp).Row, 1)
.PageSetup.LeftFooter = "As of " & Format(LastCell, "m/d/yy")
End With

End Sub</pre>
 

Forum statistics

Threads
1,144,360
Messages
5,723,902
Members
422,525
Latest member
dsenff

We've detected that you are using an adblocker.

We have a great community of people providing Excel help here, but the hosting costs are enormous. You can help keep this site running by allowing ads on MrExcel.com.
Allow Ads at MrExcel

Which adblocker are you using?

Disable AdBlock

Follow these easy steps to disable AdBlock

1)Click on the icon in the browser’s toolbar.
2)Click on the icon in the browser’s toolbar.
2)Click on the "Pause on this site" option.
Go back

Disable AdBlock Plus

Follow these easy steps to disable AdBlock Plus

1)Click on the icon in the browser’s toolbar.
2)Click on the toggle to disable it for "mrexcel.com".
Go back

Disable uBlock Origin

Follow these easy steps to disable uBlock Origin

1)Click on the icon in the browser’s toolbar.
2)Click on the "Power" button.
3)Click on the "Refresh" button.
Go back

Disable uBlock

Follow these easy steps to disable uBlock

1)Click on the icon in the browser’s toolbar.
2)Click on the "Power" button.
3)Click on the "Refresh" button.
Go back
Top