Formater celle til auto beregn

Hvis tallet du taster ind ligger i et bestemt område og tallet efter at være ganget med J1 ligger udenfor dette område kan det lade sig gøre med en makro i stil med denne. Hvis dette kriterie ikke er opfyldt løber makroen løbsk og bliver ved med at gange med J1 i en uendelighed.

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("F1:F5")) Is Nothing Then
If Target < 10 Then
Target = Target * Target.Offset(0, 4)
End If
End If
End Sub