用VBA从名为ABC工作表开始遍历，代码该怎么写

xiawangying

用VBA从名为ABC工作表开始遍历，代码该怎么写
For Each SHT In Worksheets
    If SHT.Index >= 14 Then
       Cells(irow, "a").Value = irow - 3
        ActiveSheet.Hyperlinks.Add Anchor:=Cells(irow, "b"), Address:="", _
        SubAddress:="'" & SHT.Name & "'!a1", TextToDisplay:=SHT.Name
        Cells(irow, "B").Select
       With Selection.Font
       .Underline = xlUnderlineStyleNone
       .ColorIndex = xlAutomatic
       End With
        irow = irow + 1
    End If
Next

上面这个代码是从第14张工作表开始遍历，怎么改成从工作表名为ABC开始遍历

jyfscn

For Each SHT In Worksheets     If SHT.Index >= 14 Then        Cells(irow, "a").Value = irow - 3         ActiveSheet.Hyperlinks.Add Anchor:=Cells(irow, "b"), Address:="", _         SubAddress:="'" & SHT.Name & "'!a1", TextToDisplay:=SHT.Name         Cells(irow, "B").Select        With Selection.Font        .Underline = xlUnderlineStyleNone        .ColorIndex = xlAutomatic        End With         irow = irow + 1     End If Next

jyfscn

For Each SHT In Worksheets
     If SHT.Index >= 14 Then        
         Cells(irow, "a").Value = irow - 3
         ActiveSheet.Hyperlinks.Add Anchor:=Cells(irow, "b"), Address:="", _ SubAddress:="'" &SHT.Name & "'!a1", TextToDisplay:=SHT.Name
         Cells(irow, "B").Select
               With Selection.Font
                    .Underline = xlUnderlineStyleNone
                    .ColorIndex = xlAutomatic
               End With
         irow = irow + 1
       End If
Next