vba跳转到指定工作表

vba跳转到指定工作表

以下代码可以实现输入工作表名称，按回车或点击确定后跳转至当前工作簿的该工作表
Sub 跳转()

Dim sn As String
Dim x As Integer
sn = InputBox("请输入要跳转到的工作表的名字")

For i = 1 To Sheets.Count

If Sheets(i).Name = sn Then

Sheets(i).Activate
x = 1

End If

Next i

If x = 0 Then

MsgBox ("当前工作簿中没有以" & sn & "命名的工作表")

End If

End Sub已上传附件，点击按钮即可验证

追问我记得以前网上搜到的只有1行vba命令没那么复杂啊，现在找也找不到了追答因为要判断工作簿中是否存在该工作表，否则程序会报错
想要简单的可以直接用
Sub 跳转()

Sheets(InputBox("请输入要跳转到的工作表的名字")).Activate

End Sub