worksheet_calculate **help**

T

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
 
B

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
 
Top