I don't know if this will do what you want, but this is the equivalen
code.

The method does not recognise Target so you will have to use :-


Code
-------------------
If ActiveCell.Address = "$B$4" Then .Cells(x, "a") = ActiveCell.Value

-------------------


--
Message posted from http://www.ExcelForum.com