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