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

已上传附件，点稿帆击尘亮按钮即可验证

调用Sleep函数可以实现延时。枣没或者加一个do loop循环 ，使用timer检测时间。

但是，孙哗按照你凳凯纳的代码结构，延时后继续跳转到IF上面，会不会重复判断，陷入死循环哦？

---