Record Value of Changing Forumla?

Hi Guys,

So i have code (from this site) to record the value of cell 'R10' when i manually change it. However, it will not record the value of this cell when it changes automatically.

The cell itself is a SUM - but the data to the referenced cells in the SUM are changing via a data link.

Is there a way to record the values of a changing formula?

Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Intersect(Target, Range("R10")) Is Nothing Then
        Application.EnableEvents = False
        Range("V" & Rows.Count).End(xlUp).Offset(1, 0).Value = Range("R10").Value
        Application.EnableEvents = True
    End If
End Sub

Thanks

Thanks for response...unfortunately still not working:

Private Sub Worksheet_Change(ByVal Target As Range)
    If Intersect(Target, Range("R10")) Is Nothing Then
        Application.EnableEvents = False
        Range("V" & Rows.Count).End(xlUp).Offset(1, 0).Value = Range("R10").Value
        Application.EnableEvents = True
    End If
End Sub

Thanks for the response...unfortunately still not working:

Private Sub Worksheet_Change(ByVal Target As Range)
    If Intersect(Target, Range("R10")) Is Nothing Then
        Application.EnableEvents = False
        Range("V" & Rows.Count).End(xlUp).Offset(1, 0).Value = Range("R10").Value
        Application.EnableEvents = True
    End If
End Sub

It only seems to refresh when i press the 'Delete' key - is that refreshing the sheet in some way that the changing values isnt?

Any further input would be appreciated.

Cheers

Latest...i am using the current forumla:

Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Intersect(Target, Range("R10")) Is Nothing Then
        Application.EnableEvents = False
        Range("V" & Rows.Count).End(xlUp).Offset(1, 0).Value = Range("R10").Value
        Application.EnableEvents = True
    End If
End Sub

At it still only works when i manually refresh field R10..