I currently have this formula for each cell in a column J

=IF(F3="Content Final","Ready for Processing","") and so on

But i would like this to be run off of VBA code since i do not want users to delete the formula in each cell. Anybody can help me with a code?

this is the current code i am trying out to no avail.

Private Sub Worksheet_Calculate()

    Dim rng As Range, cell As Range

    
    Set rng = Range("f3:f10")

    If Not rng Is Nothing Then

        For Each cell In rng.Cells
            If cell.Value = "Content Final" Then
                cell.Offset(0, 4).AddComment "ready for processing"
            End If
        Next

    End If

End Sub