this sub will run everytime the value in sheet 1, cell A1 changes. it
will add the new value to a list of cummulative values in sheet 2. as
for the high/low & percent change, you're on your own.
========================
Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
Dim mySheet As Worksheet
Dim myLastRow As Long
Dim c As Range
On Error GoTo myError
If Target = Range("A1") Then
Application.EnableEvents = False
Set mySheet = ActiveWorkbook.Worksheets(2)
myLastRow = mySheet.Cells(10000, 1).End(xlUp).Row + 1
Set c = mySheet.Range("a" & myLastRow)
c.Value = Target.Value
Application.EnableEvents = True
Else
Exit Sub
End If
myError:
Application.EnableEvents = True
Exit Sub
'This is worksheet event code, which means that it needs to be
'placed in the appropriate worksheet code module, not a standard
'code module. To do this, right-click on the sheet tab, select
'the View Code option from the menu, and paste the code in.
End Sub
=========================
hope it helps!
susan