vba 查找excel 文件下是否存在指定文件名的sheet，若不存在，则新建该sheet

For Each sh In tempBook.Sheets '在tempBook查找是否存在已有名字的sheet
If sh.Name <> shName Then
'若不存在指定名称的sheet,则新建一个站点命名的sheet
tempBook.Sheets.Add before:=Sheets(1)
ActiveSheet.Name = shName
End If
Next
这句话运行出来的结果不正确，请指教

相关了解……