Sub SelSht() '工作bai表查找du  
    Dim Sht As String  
    Dim str As String  
    Dim st as WorkSheet  
    Sht = Application.InputBox(prompt:="请输入zhi要查找的值：", Title:="模糊查找", Type:=2)  
    str=""  
    for each st in sheets  
        if st.name like "*"& sht &"*" then  
            st.activate  
            st.select  
            str="ok"  
            exit for  
        end if  
    nest st  
     If str \<\> "ok" Then  
     MsgBox "不存在或名dao称输入有误！"  
     End If  
End Sub