Try this jason

Sub test()
Cells(ActiveCell.Row, "D").Value = Format(Now, "yy-mm-dd")
Cells(ActiveCell.Row, "A").Font.Strikethrough = True
End Sub


--
Regards Ron de Bruin
(Win XP Pro SP-1 XL2000-2003)
www.rondebruin.nl



"Ja" <jason wrote in message ...
I am new at doing custom macros and would like to know if someone can help
with the following issue I have.
I would like to create a macro which goes to column A of that current row,
makes the data in that cell strikethrough, then goes to column D and inserts
the current date.

Is this possible?
Thanks in advance for any help
Jason