Dim R As Range
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Set R = Selection.Cells(1, 1)
Application.Calculation = xlCalculationManual
End Sub
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(R, Target) Is Nothing Then
If Not Intersect(Target, Range("A:A")) Is Nothing Then
Range("B:B").Calculate
End If
End If
End Sub
You are welcome - thanks for the reply.Works better than I expected!
Thank you!