thanks very much - it works perfectly!

"Executor" wrote:

Hi John,

You should create a event on the worksheet:

Option Explicit

Private lngLastRow As Long

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Cells.Count = 1 Then
If Target.Row < lngLastRow Then
Calculate
lngLastRow = Target.Row
End If
End If
End Sub

Hoop this helps,

Executor.