Excel VBA实现复制工作表后自动修改标签颜色的需求及问题求助

大家好，我现在碰到一个Excel VBA的小难题，想请教下各位前辈。我这边有一些模板工作表，标签都设成了红色，用来提示团队成员不要修改这些模板内容。现在我希望实现一个功能：当右键点击模板表，选择「移动或复制」并完成复制操作后，新生成的那张工作表标签能自动变成蓝色，省得每次都手动去改颜色。

我自己试了好几种代码写法，下面是其中的一个版本：

Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)

If Target.Value = "BlankTemplate-UnknownEZ1(2)" Then ' Adjust "CopySheet" to the name you use for copying sheets

Dim newSheet As Worksheet

Set newSheet = Sh

newSheet.Tab.Color = RGB(0, 0, 255) ' Change the color as needed

End If

End Sub

不过这段代码并没有达到预期效果，想问问有没有正确的实现方法呀？

备注：内容来源于stack exchange，提问作者Emily Baker