判断字符串是否包含在数据集中,只能用遍历法吗??

Question

表名如下： 
ShtName = Array("Line", "Circle", "Arc", "Spline", "Polyline", "LWPolyline", "Dim", "Ellipse")
Dim tempSheet As Worksheet
  For ii = 0 To UBound(ShtName)
      
      ThisWorkbook.Sheets.Add after:=ActiveSheet
      ActiveSheet.Name = ShtName(ii)
  Next ii有的网友提出用nothing 方法
Set tempSheet=Sheets(ShtName(ii))此句不能赋值为Nothing
由于on Error Resume next,Set tempSheet=Sheets(ShtName(ii))不存在(提示下标越界)将越过不执行.实现不了预期目的.还有的网友提出的方法是遍历法,程序通过.Function WorksheetExists(wb As Workbook, sName As String) As Boolean
Dim s As String
On Error GoTo ErrHandle
s = wb.Worksheets(sName).Name
WorksheetExists = True
Exit Function
ErrHandle:
WorksheetExists = False
End FunctionSub test()
If WorksheetExists(ThisWorkbook, "pop") = False Then
    MsgBox "不存在"
Else
    MsgBox "存在"
End If
End Sub问:判断字符串是否包含在数据集中,只能用遍历法吗??