[發問] 下拉式選單, 依據選擇的項目不同, 執行不同的巨集

目前要製作一個下拉式選單, 當下拉式選單選擇A項目, 就執行A巨集, 選擇B項目就執行B巨集,
A巨集和B巨集都只是顯示和隱藏特定的欄位, 目前卡在製作下拉式選單後只能執行一個巨集,
不管是用資料驗證還是ActiveX製作的下拉式選單都用同樣的問題,
有研究和查詢使用worksheet_change來撰寫程式, 還是無法執行多個巨集, 圖解和巨集如下請各位前輩指點, 謝謝

Private Sub Workbook_SheetChange(ByVal Target As Range)
Target = Range("A1")
Applicion.Run AMP_100
Applicion.Run Pre_Qual
Applicion.Run GPU
Applicion.Run Class1

End Sub
_______________________________________________________________________________
Sub AMP_100()
Rows("1:1619").EntireRow.Hidden = False

End Sub
________________________________________________________________________________
Sub Pre_Qual()
Rows("1:1619").EntireRow.Hidden = False
Rows("7:1377").EntireRow.Hidden = True
Rows("1404:1619").EntireRow.Hidden = True

End Sub
_________________________________________________________________________________
Sub GPU()
Rows("7:1619").EntireRow.Hidden = True
Rows("7").EntireRow.Hidden = False
Rows("178").EntireRow.Hidden = False
Rows("216").EntireRow.Hidden = False
Rows("226").EntireRow.Hidden = False
Rows("228").EntireRow.Hidden = False
Rows("334").EntireRow.Hidden = False
Rows("378").EntireRow.Hidden = False
Rows("341").EntireRow.Hidden = False
Rows("487").EntireRow.Hidden = False
Rows("494").EntireRow.Hidden = False
Rows("531").EntireRow.Hidden = False
Rows("640").EntireRow.Hidden = False
Rows("647").EntireRow.Hidden = False
Rows("684").EntireRow.Hidden = False
Rows("793").EntireRow.Hidden = False
Rows("800").EntireRow.Hidden = False
Rows("837").EntireRow.Hidden = False
Rows("946").EntireRow.Hidden = False
Rows("953").EntireRow.Hidden = False
Rows("990").EntireRow.Hidden = False
Rows("1033").EntireRow.Hidden = False
Rows("1040").EntireRow.Hidden = False
Rows("1080").EntireRow.Hidden = False
Rows("1132").EntireRow.Hidden = False
Rows("1139").EntireRow.Hidden = False

End Sub
____________________________________________________________________________
Sub Class1()

Rows("7:1619").EntireRow.Hidden = True
Rows("7").EntireRow.Hidden = False
Rows("226").EntireRow.Hidden = False
Rows("1185").EntireRow.Hidden = False
Rows("226").EntireRow.Hidden = False
Rows("1193").EntireRow.Hidden = False
Rows("1378").EntireRow.Hidden = False
Rows("1404").EntireRow.Hidden = False
Rows("1425").EntireRow.Hidden = False
Rows("1432").EntireRow.Hidden = False
Rows("1454").EntireRow.Hidden = False
Rows("1472").EntireRow.Hidden = False
Rows("1492").EntireRow.Hidden = False
Rows("1495").EntireRow.Hidden = False
Rows("1533").EntireRow.Hidden = False
Rows("1558").EntireRow.Hidden = False