在下拉菜单中的工作表代码，你可以选择其他选项，这可能是一个更好的，然后下面，当将是大数据，你可以满足这么多的滞后。
where you can check some more functions
试试吧，也许你的应用程序不需要太多的资源，它会工作得很好：）或者仍然没有找到更好的：

Private Sub Worksheet_ActivateCell(ByVal Target As Range)
    Dim selectedCells as Integer 
    Dim triggerCell as Range
    selectedCells = Selection.Count
    Set triggerCell = ActiveSheet.Range("F8").
    
 If selectedCells = 1 Then
        If Not Intersect(Target, triggerCell) Is Nothing Then
            Call CodeOfGodes
        End If
    End If
End Sub

字符串