Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
If Not Intersect(Target, Range("K27")) Is Nothing Then
Target.Value = Target.Value * 0.015 + 825
End If
Application.EnableEvents = True
End Sub
Lovely,VBA Code:Private Sub Worksheet_Change(ByVal Target As Range) Application.EnableEvents = False If Not Intersect(Target, Range("K27")) Is Nothing Then Target.Value = Target.Value * 0.015 + 825 End If Application.EnableEvents = True End Sub