マクロを開いて隠れたシートに移動する

Question

申し訳ありませんが、私はこれに非常に新しいので、私ができることを共にしています。以下では、入力ボックスに入力して開いたシートに移動することができますが、隠しシートを開いて移動する必要があります。再び、私の貧しい言葉遣いには申し訳ありませんが、どんな助けも大歓迎です。

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 

Answer 1

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