I have this code

Private Sub Workbook_SheetCalculate(ByVal Sh As Object)
With Sheets("sheet17")
x = .Cells(Rows.Count, "a").End(xlUp).Row + 1
If Target.Address = "$B$4" Then .Cells(x, "a") = Target
End With
End Sub

it works with worksheet_change but not worksheet calculate,

can someone please tell me where i am going wrong as i havent any idea

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

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

sorry this doesnt work,


why is it alway that 1 thing that will not go righ

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