选择活动单元时引发事件VBA

Question

全部

我有一个基本宏，可以选择指定范围内的每个单元格。我希望在选择单元格时引发一个在工作表模块中的事件。但是，选择单元格似乎不触发更改单元格事件。

 Sub EnableEvents()

 Application.ScreenUpdating = False
 Application.EnableEvents = True

 Dim Lastrow As Long

    If ActiveSheet.Name = "Blended Rates" Then

    Lastrow = ActiveSheet.Range("LastRow_BRRHB").Offset(rowOffset:=-1).Row

    For Each b In Range("B4:B" & Lastrow)
    Range("B" & b.Row).Select
    Next b

    End If

 Application.ScreenUpdating = True
 End Sub