worksheet_calculate **help**

[tommyboy]

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

 

[BrianB]

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

 

[tommyboy]

sorry this doesnt work,


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