Modify this code

[noelmus]

I have this code(below) and need to change the macro to run every time a cell in the macro changes its value.

Thanks

Option Explicit

Public dtmNext As Date


Sub Check4Update()
    With Worksheets("Rep 21")
        If .Range("A1").Value < Date Then
            .Range("F14").Value = .Range("F13").Value
            .Range("H14").Value = .Range("H13").Value
            .Range("J14").Value = .Range("J13").Value
            .Range("L14").Value = .Range("L13").Value
            .Range("N14").Value = .Range("N13").Value
            .Range("P14").Value = .Range("P13").Value
            .Range("A1").Value = Date
        End If
    End With
    dtmNext = DateAdd("n", 15, dtmNext)
    Application.OnTime dtmNext, "Check4Update"




End Sub

 

[mole999]

needs to be on the worksheet_change event, and then looking at target intersect, lots of examples around