excel中过渡导航的VBA代码

Sub TransitionNavigation()
    Dim ws As Worksheet
    Dim wsName As String
    Dim targetWs As Worksheet
    
    ' 获取当前工作表的名称
    wsName = ActiveSheet.Name
    
    ' 输入要导航到的工作表名称
    wsName = InputBox("请输入要导航到的工作表名称：")
    
    ' 查找目标工作表
    On Error Resume Next
    Set targetWs = Worksheets(wsName)
    On Error GoTo 0
    
    ' 如果找到目标工作表，则激活该工作表
    If Not targetWs Is Nothing Then
        targetWs.Activate
    Else
        MsgBox "未找到该工作表，请确认输入的名称是否正确。"
    End If
End Sub