未入力でOKを押した場合はどうなのでしょうか?
Sub マクロ()
Dim sheName As String
sheName = inputBox(\u0026quot;表示するシート名を入力してください\u0026quot;,\u0026quot;シートの表示\u0026quot;)
if StrPnt(sheName) = 0 Then
msgbox \u0026quot;キャンセルしました。\u0026quot;
Elif sheName = \u0026quot;\u0026quot; Then
msgbox \u0026quot;未入力です。\u0026quot;
Else
Dim ws As Worksheet
set ws = sheets(sheName)
if ws.Name\u0026lt;\u0026gt;sheName Then
msgbox \u0026quot;シート「\u0026quot; \u0026amp; sheName \u0026amp; \u0026quot;が見つかりません。\u0026quot;
Else
ws.Activate
End if
End if
End sub
こんな感じでいかがでしょ
試験動作はしていません