Hi there,

I'm trying to write a macro, so that if a cell in a range has a valu
placed in it - Now() is written to a corresponding cell in anothe
column, then the value copied and pasted (so that it does not update).

I have this -

private sub worksheet_change(byval target as range)

if target.address(false, false) = \"f6:f45\" then
application.enableevents = false

if range(\"f6:f45\") = \"1\" then
range(\"d6:d45\").value = now()

else
range(\"d6:d45\") = \"no call taken\"

end if

application.enableevents = true

end if

range(\"d6:d45\").select
selection.copy
range(\"d6:d45\").select
selection.pastespecial paste:=xlpastevalues, operation:=xlnone
skipblanks _
:=false, transpose:=false

end sub

For some reason it does not want to work for me. I have EnableEvent
set to True on workbook open and am running Office XP.

Would appreciate any advice to steer me in the right direction as I a
still quite new to VBA!

Thanks

Ro

--
systemati
-----------------------------------------------------------------------
systematic's Profile: http://www.excelforum.com/member.php...fo&userid=2529
View this thread: http://www.excelforum.com/showthread.php?threadid=49610