在工作表修改上执行vba代码

Question

这是我的代码，列出了主页中所有工作表的链接：

     For i = 2 To Sheets.Count
          Sheets("main").Hyperlinks.Add Anchor:=Sheets("main").Cells(i, 2),_
          Address:="", SubAddress:="'" & Sheets(i).Name & "'!A1", TextToDisplay:=Sheets(i).Name
     Next i

我想在每次添加新工作表，删除，重命名，重新定位时执行此代码。

我该怎么做？

P.S。

如果有更好的解决方案，我也会考虑它。

Answer 1

我会将代码放在工作表“Main”的Worksheet_Activate块中。这样，每次激活工作表时都会更新超链接。