Reference last cell in Col A in footer

[pilot]

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?

 

[Jay Petrulis]

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>

 

[pilot]

Thanks, Jay. This is exactly what I needed!