VBA在工作簿中的每个工作表的第一行搜索“第”字，怎么实现，谢谢

VBA在工作簿中的每个工作表的第一行搜索“第”字，怎么实现，谢谢

Sub Test2()
Dim iSheet
Dim iRange
For Each iSheet In Worksheets
For Each iRange In iSheet.Range("1:1")
''iRange.Value = 1

If InStr(1, "第", iRange.Value) Then
'搜到第一个"第""字后,中断搜索?
MsgBox iRange
Else
End If

Next
Next
End Sub

有三种方法： 1、直接在sheet2标签上点右键，弹出的菜单上面有个“隐藏”，点后就可以隐藏它了，想取消隐藏直接在其它工作表标签上点右键——取消，选想取消隐藏的工作表即可。这种方法较方便，取消也方便。当然也可以保护工作薄让人无法轻易取消隐藏。 2、可以用alt+f11 打开vba编辑器，在左侧上方，选中sheet2，然后在左下方的属性框内，将visible（最下面）设成“0－xlsheethidden”即第二个。也可以实现隐藏sheet2 3、按alt+f11 打开vba编辑器，在左侧上方，选中thisworkbook，复制代码 private sub workbook_open() sheet2.visible = xlsheetveryhidden end sub 到右边空白处，保存工作薄，重启时启用宏，也可以实现隐藏sheet2的效果。 参考资料里含操作图，也是我答的。