Hi
try this in module of worksheet
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address(0, 0) = "Y2" Then
Application.Calculation = xlAutomatic
Else:
Application.Calculation = xlManual
End If
End Sub