Worksheet Event change macro not working

[LetsGo]

I am using the standard BetAngel_1 workbook that links BetFair race details directly into a spreadsheet via Bet Angel

I also have 2 other sheets that generate other criteria

My problem is that I have an event change macro in the BetAngel_1 sheet that is supposed to clear a range of cells if K1 changes. K1 is a countdown marker that starts at 0 then changes to 1, 2, 3, etc. up to 17

K1 is linked to a cell in one of the other sheets, eg. =Bet!$B$3

Event code is
----------------------------------------------------
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Application.EnableEvents = False
If Target.Address = [K1] Then
Range("O9").ClearContents
Range("O11").ClearContents
Range("O13").ClearContents
Range("O15").ClearContents
Range("O17").ClearContents
Range("O19").ClearContents
Range("O21").ClearContents
Range("O23").ClearContents
Range("O25").ClearContents
End If
Application.EnableEvents = True
End Sub
-------------------------------------------------

But it is not working presumably because the Event macro is only triggered when a user changes a cell but not when the value is the result is a formula calculation. However it should work if the result is from VBA code

So my question is how can I change cell k1 to be VBA code

Thanks in advance

 

[diddi]

try this

Private Sub Worksheet_Change(ByVal Target As Range)
    If range("K1").value= 0 and target.range="B3" Then     '<----- countdown value
        Application.EnableEvents = False
        for row = 9 to 25 step 2
            cells(row,"O").value=""
        next row
        Application.EnableEvents = True
    End If
End Sub

 

[LetsGo]

Thanks very much for your reply

Problem is that cell B3 is in another sheet named Bet not in the BetAngel_1 sheet so it is throwing a compile errr

What happens is that cell K1 in BetAngel_1 sheet changes from 0 through to 17 so I need the Event Change to trigger each time this value changes

Your advice much appreciated