Is this homework?

--
Don Guillett
SalesAid Software

"Tim" wrote in message
...
Hi
I need help to create a macro which will look in
column "Z"
and if any cell in this column has value 1 then do this:
1) On the entire row with offset put in column "K"
current date
2) Entire row Copy-Paste Special-Values
3) Entire row change value 1 in column "Z" with the
formula: =IF(sub!C1=6,1,"")
Any help is highly appreciated.