I did exactly the formula below and this mehtod did noe wor?

"Don Guillett" wrote:

try this idea. Change activecell.row to suit your code

Sub dateinlastcol()
Cells(ActiveCell.Row, Columns.Count) _
..End(xlToLeft).Offset(, 1) = Date
End Sub
--
Don Guillett
SalesAid Software

"marthasanchez" wrote in message
...
In VBA EXcel, I have a report that will list data. The number of records
will
be different everytime I run the report. I want to add a column at the end
of
the report to show today's date. How do I do this to correspond with the
number of records?