vba 如何实现某一单元格选中后触发时间

比如 a5-a8中某一单元格被选中，这启动一个窗体

假设要判断的值在A1，则代码为：
Dim oldval
Private Sub Worksheet_Activate()
oldval = [a1]
End Sub
Private Sub Worksheet_Change(ByVal Target As Range)
If oldval <> [a1] Then
oldval = [a1]
'在此输入操作代码
End If
End Sub

private sub worksheet_change(byval target as range) for each target in range("c10") call sd nextend sub