Hi,

I had my doubts it would work. To try calculate go to where the code is and
on the top right dropdown select 'Calculate' and you get these 2 lines appear

Private Sub Worksheet_Calculate()

End Sub

Cut the code from the 'change' routine and paste it into this and see what
happens.

Mike

" wrote:

On Sep 25, 9:08 am, Mike H wrote:
Hi,

Worksheet change 'may' work it depends on what triggers the update of your
data cells. If it doesn't then try worksheet calculate. Right click you sheet
tab, view code and paste this in. It assumes your 2 cells are a1 and E1
(Change tio suit) and it puts a timestamp in the cell to the right of each
when they update.

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Cells.Count 1 Or IsEmpty(Target) Then Exit Sub
If Not Intersect(Target, Range("A1,E1")) Is Nothing Then
Application.EnableEvents = False
Target.Offset(, 1).Value = Time
Application.EnableEvents = True
End If
End Sub

Mike



" wrote:
Hi,
If I have data updating in 2 cells, is it possible to compare the
update times of the 2 cells.
What I would like to know is if one cell stops updating and the other
one continues, then I know the data is bad coming into the cell that
has stopped.
I assume that I use a WorkSheet change event but how do I track what
cell stops updating?

Thanks,
K- Hide quoted text -

- Show quoted text -

Hi,
thanks for the reply. I tested out the Worksheet_Change event but
that does not trigger when my cells are being updated. It only seems
to work when I type into the cell in question. I need the event to
fire automatically when the cell updates in real time. Can you
elaborate more on the Worksheet_Calculate event, I tried changing
Change to Calculate but this did not work

Thanks,
K