VBA一段代码怎么让所有EXCEL表格都有效？

Question

以下是VBA聚光灯效果，但是只能在单个的sheet显示，这段代码复制到Thisworkbook也不起作用，试过模块和加载宏也不能起作用，我的需求就是最好是所有打开的excel都能用，这个需要怎么操作？
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
With Target
.Parent.Cells.Interior.ColorIndex = xlNone
.EntireRow.Interior.Color = vbYellow
.EntireColumn.Interior.Color = vbYellow
.Interior.Color = vbYellow
End With
End Sub

Answer 1

Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
With Target
.Parent.Cells.Interior.ColorIndex = xlNone
.EntireRow.Interior.Color = vbYellow
.EntireColumn.Interior.Color = vbYellow
.Interior.Color = vbYellow
End With
End Sub

Answer 2

Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
With Target
.Parent.Cells.***.colorIndex = xlNone
.EntireRow.***.color = vbYellow
.EntireColumn.***.color = vbYellow
.***.color = vbYellow
End With
End Sub

Answer 3

Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
With Target
.Parent.Cells.***.colorIndex = xlNone
.EntireRow.***.color = vbYellow
.EntireColumn.***.color = vbYellow
.***.color = vbYellow
End With
End Sub

Answer 4

Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
With Target
.Parent.Cells.***.colorIndex = xlNone
.EntireRow.***.color = vbYellow
.EntireColumn.***.color = vbYellow
.***.color = vbYellow
End With
End Sub

Answer 5

Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
With Target
.Parent.Cells.***.colorIndex = xlNone
.EntireRow.***.color = vbYellow
.EntireColumn.***.color = vbYellow
.***.color = vbYellow
End With
End Sub