对您的问题的注解响应引用了UserForm上的按钮。如果你正在使用，那么很棒，请按照链接中的代码进行操作。
从你在问题中使用的措辞来判断，看起来你可能是在工作表本身添加按钮。如果是这样的话，那你就得走另一条路了。
诀窍是为您的按钮名称指定您正在导航的工作表名称。在下面的示例中，我将按钮命名为“Sheet1| Sheet2”等。其中，第一个名称是导航的工作表，第二个名称是导航到的工作表。
在处理程序中，您可以从Application.Caller属性访问按钮名称。所以你只需要解析这个字符串来获取你想要的数据。 backbone 代码看起来像这样：

Sub NavigationClick()
    Dim buttonName As Variant
    Dim nav() As String
    Dim fromSheet As Worksheet, toSheet As Worksheet
    
    buttonName = Application.Caller
    nav = Split(buttonName, "|")
    If (UBound(nav)) <> 1 Then Exit Sub
    
    On Error Resume Next
    With ThisWorkbook
        Set fromSheet = .Worksheets(nav(0))
        Set toSheet = .Worksheets(nav(1))
    End With
    On Error GoTo 0
    If Err.Number > 0 Then Exit Sub
    
    With toSheet
        .Visible = xlSheetVisible
        .Activate
    End With
    
    fromSheet.Visible = xlSheetVeryHidden
End Sub

每个工作表按钮都将分配给此宏。