thank you both very much, very helpful!

"Per Jessen" wrote:

Hi

This changed code should do it:

Private Sub Worksheet_Calculate()
Dim DestU As Range
Dim DestW As Range
With Sheets("graphs")
Set DestU = .Range("A" & Rows.Count).End(xlUp)
Set DestW = .Range("K" & Rows.Count).End(xlUp)
If Range("U17") < DestU Then _
DestU.Offset(1) = Range("U17")
If Range("W25") < DestW Then _
DestW.Offset(1) = Range("W25")
End With
End Sub

Regards,
Per

"Morgan" skrev i meddelelsen
...
hi, i have the code below which takes the value in cell U17 everytime it
changes, and places it in column A on a sheet called graphs thereby
forming a
list down the sheet of all the values that appear in cell U17, for
charting
purposes.

What i would like to do is to be able to duplicate this for different
cells.
i would like to have the cell values of W25 appear in a list in column K
on
the 'graphs' sheet. Could you please give me some code that will enable me
to
capture the values for these two cells in sheet1 into the sheet called
graphs?

any help would be greatly appreciated, thank you.

Private Sub Worksheet_Calculate()
Dim Dest As Range
With Sheets("graphs")
Set Dest = .Range("A" & Rows.Count).End(xlUp)
If Range("U17") < Dest Then _
Dest.Offset(1) = Range("U17")
End With
End Sub

--
thanks

.