我刚开始接触可视化基础知识和编写宏，我在工作表中组合了以下宏来执行以下操作：一个允许在列表框中进行多项选择，两个允许临时导航按钮在选项卡之间来回导航，同时隐藏不必要的选项卡。
问题是，当我把这些宏放在一个工作表中时，它们似乎抵消了第一个宏，这可能是我忽略的一个很简单的事情，有人能告诉我为什么它们不能一起工作吗？

' To allow multiple selections in a Drop Down List in Excel (without repetition)
Private Sub Worksheet_Change(ByVal Target As Range)
Dim Oldvalue As String
Dim Newvalue As String
Application.EnableEvents = True
On Error GoTo Exitsub
If Not Intersect(Target, Range("table19")) Is Nothing Then
  If Target.SpecialCells(xlCellTypeAllValidation) Is Nothing Then
    GoTo Exitsub
  Else: If Target.Value = "" Then GoTo Exitsub Else
    Application.EnableEvents = False
    Newvalue = Target.Value
    Application.Undo
    Oldvalue = Target.Value
      If Oldvalue = "" Then
        Target.Value = Newvalue
      Else
        If InStr(1, Oldvalue, Newvalue) = 0 Then
            Target.Value = Oldvalue & vbNewLine & Newvalue
      Else:
        Target.Value = Oldvalue
      End If
    End If
  End If
End If
Application.EnableEvents = True
Exitsub:
Application.EnableEvents = True
End Sub

'<---- Start of Nav Link Cod---->
Private Sub Label1_Click()
End Sub
Private Sub CommandButton1_Click()
Sheets("LIST_locations_LIST").Visible = True
 Sheets("LIST_locations_LIST").Select
End Sub
Private Sub CommandButton2_Click()
Sheets("LIST_Schedule_contact_LIST").Visible = True
 Sheets("LIST_Schedule_contact_LIST").Select
End Sub
Private Sub CommandButton3_Click()
Sheets("LIST_Admin_LIST").Visible = True
 Sheets("LIST_Admin_LIST").Select
End Sub
Private Sub CommandButton4_Click()
Sheets("LIST_System_Owner_LIST").Visible = True
 Sheets("LIST_System_Owner_LIST").Select
End Sub
Private Sub CommandButton5_Click()
Sheets("LIST_Vendor_contacts_LIST").Visible = True
 Sheets("LIST_Vendor_Contacts_LIST").Select
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
   On Error Resume Next
    With ActiveSheet.Shapes("Label1")
        .Top = Target.Offset(1).Top
        .Left = Target.Offset(, 1).Left
    End With
     With ActiveSheet.Shapes("CommandButton1")
        .Top = Target.Offset(3).Top
        .Left = Target.Offset(, 1).Left
    End With
    With ActiveSheet.Shapes("CommandButton2")
        .Top = Target.Offset(5).Top
        .Left = Target.Offset(, 1).Left
    End With
      With ActiveSheet.Shapes("CommandButton3")
        .Top = Target.Offset(7).Top
        .Left = Target.Offset(, 1).Left
    End With
      With ActiveSheet.Shapes("CommandButton4")
        .Top = Target.Offset(9).Top
        .Left = Target.Offset(, 1).Left
    End With
      With ActiveSheet.Shapes("CommandButton5")
        .Top = Target.Offset(11).Top
        .Left = Target.Offset(, 1).Left
    End With
End Sub
'<---- End of Nav Link Cod---->