I'm trying to use a snippet of code from a previous post. But when I add this to the sheet, nothing happens. Where's my mistake?
All I'm trying to do is in column I, the amount entered uses the formula = Round(cell.Value / 365, 2) * 365 to calculate when I enter a value.

All I'm trying to do is in column I, the amount entered uses the formula = Round(cell.Value / 365, 2) * 365 to calculate when I enter a value.
VBA Code:
Option Explicit
Dim rng As Range
Dim cell As Range
Set rng = Intersect(Target, Range("I2:I15000"))
If Not rng Is Nothing Then
Application.EnableEvents = False
For Each cell In rng
If IsNumeric(cell.Value) Then
cell.Value = Round(cell.Value / 365, 2) * 365
End If
Next cell
Application.EnableEvents = True
End If
