Excel 宏打开并转到隐藏工作表

抱歉，因为我对这一点很陌生，正在尽我所能拼凑。下面允许我通过输入框中的条目进入打开的工作表，但我需要它打开隐藏的工作表，然后进入。再次为我拙劣的措辞道歉，但我们非常感谢您的帮助

Sub SearchSheetName()
    Dim sName As String
    Dim sFound As Boolean

    sName = InputBox(prompt:="Enter BAC to find in workbook:", Title:="Sheet search")

    If sName = "" Then Exit Sub
    sFound = False

    On Error Resume Next
        ActiveWorkbook.Sheets(sName).Select
        If Err = 0 Then sFound = True
    On Error GoTo 0

    If sFound = False Then
        MsgBox prompt:="The sheet '" & sName & "' No Data or Non Assigned Account!", Buttons:=vbExclamation, Title:="Search result"
    End If
End Sub

子搜索表单名称（）
将sName设置为字符串，sht设置为工作表
sName=InputBox（提示：=“输入要在工作簿中查找的BAC:”，标题：=“工作表搜索”）
如果sName=“”，则退出Sub
出错时继续下一步
设置sht=ActiveWorkbook.Sheets（sName）“
subsearchsheetname（）
将sName设置为字符串，sht设置为工作表
sName=InputBox（提示：=“输入要在工作簿中查找的BAC:”，标题：=“工作表搜索”）
如果sName=“”，则退出Sub
出错时继续下一步
设置sht=ActiveWorkbook.Sheets（sName）'
Sub SearchSheetName()
    Dim sName As String, sht As Worksheet

    sName = InputBox(prompt:="Enter BAC to find in workbook:", Title:="Sheet search")

    If sName = "" Then Exit Sub

    On Error Resume Next
    Set sht = ActiveWorkbook.Sheets(sName) '<< try setting a reference...
    On Error GoTo 0

    If sht Is Nothing Then
        'sheet not found...
        MsgBox prompt:="The sheet '" & sName & _
            "' No Data or Non Assigned Account!", _
            Buttons:=vbExclamation, Title:="Search result"
    Else
        If sht.Visible = xlSheetHidden Then sht.Visible = xlSheetVisible
        sht.Select
    End If

End Sub