选择单元格时使用VBA更新数据验证？

Question

我有VBA代码，用于更新单元格中的数据验证列表。

Sub SetDataValidationList(r As Range, s As String)
    Dim dv As Validation
    Set dv = r.Validation

    With dv
        .Delete
        .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:=xlBetween, Formula1:=s
    End With
End Sub

每当选择单元格时，我希望数据验证列表是最新的。我知道我可以在Worksheet_Change事件中运行上面的子例程。但是有没有像Cell_Select这样的事件？或者某种方式我可以模仿这样的事件。