vba查找sheete

之前的报表全部放在一个ｅｘｃｅｌ文件里，所以查找ｓｈｅｅｔ非常麻烦．那我就自己写了个小程序方便查找，不过没有模糊查找的功能，以后可以完善下．代码如下：

Sub findName() 
    Dim sheetFind As Worksheet 
    Dim name As String

    name = InputBox("输入要查找的sheet名", vbOKCancel)
     For Each sheetFind In Worksheets
         If sheetFind.name = name Then
             sheetFind.Activate
         End If
     Next
End Sub

非常简单却很方便．