在循环中添加异常

如何解决在循环中添加异常

我的代码用于在Excel文件中添加摘要。 因此，第一张表是用于汇总表的，其中所有表都被命名（当我们单击它时，我们进入选择页面）。

这是此页的代码：

Private Sub Worksheet_Activate()
    [C5:C100].ClearContents
    For i = 2 To Sheets.Count
      nf = Sheets(i).Name
      ActiveSheet.Hyperlinks.Add Anchor:=Cells(i + 3,3),Address:="",SubAddress:="'" & _
         nf & "'" & "!A1",TextTodisplay:=nf
    Next i
    [C5:C100].sort Key1:=Range("C5"),Order1:=xlAscending,Header:=xlGuess
End Sub

这是此页的一个示例：

在它旁边，我需要为“ Thisworkbook”代码中的每个页面添加一个代码，目的是添加带有摘要名称的超链接（直接转到摘要）和2个箭头（在纸张之间移动。

这是代码：

Private Sub Workbook_SheetActivate(ByVal Sh As Object)
   If ActiveSheet.Index > 1 Then
    ActiveSheet.Hyperlinks.Add Anchor:=Cells(1,1),SubAddress:="'" & _
         Sheets(2).Name & "'" & "!A1",TextTodisplay:=Sheets(2).Name
    ActiveSheet.Hyperlinks.Add Anchor:=Cells(1,2),SubAddress:="'" & _
      Sheets(ActiveSheet.Index - 1).Name & "'" & "!A1",TextTodisplay:="<"
   End If
   If ActiveSheet.Index < Sheets.Count Then
    ActiveSheet.Hyperlinks.Add Anchor:=Cells(1,SubAddress:="'" & _
      Sheets(ActiveSheet.Index + 1).Name & "'" & "!A1",TextTodisplay:=">"
   End If
End Sub

这是代码对每张纸所做的一个示例：

难题是，我需要在命名为“模板”的一个特定工作表的A1：A3单元格中隐藏文本“ Sommaire ”。

我已经尝试过将文本设置为白色，但是每次更改工作表时都会刷新文本（由于宏）。

您是否有想法仅在此工作表的循环中添加exeption？