В заявлении не указан правильный случай, даже если условие выполнено

Question

У меня есть код, чтобы проверить путь хранения файла Excel и сохранить его в разных местах на основе предоставленного ввода.я добавил функцию Vlookup, которая работает правильно, чтобы получить ввод.однако, когда я использую оператор case, элемент управления просто перепрыгивает через все case, даже если значение выполнено.

Private Sub CommandButton6_Click()

    Dim strName As String
    Set wbA = ActiveWorkbook
    Set wsA = ActiveSheet
    Dim StrPath As String
    Dim myFirstColumn As Long
    Dim myLastColumn As Long
    Dim myColumnIndex As Long
    Dim myFirstRow As Long
    Dim myLastRow As Long
    Dim SaveLocation As String
    Dim myTableArray As Range

    myLookupValue = wsA.Range("B2").Value
    myFirstColumn = 2
    myLastColumn = 8
    myColumnIndex = 7
    myFirstRow = 19
    myLastRow = 78


    With Worksheets("List")
        Set myTableArray = .Range(.Cells(myFirstRow, myFirstColumn), 
    .Cells(myLastRow, myLastColumn))
    End With
    myVlookupResult = WorksheetFunction.VLookup(myLookupValue, myTableArray, 
    myColumnIndex, False)
    strName = wsA.Range("B5").Value
    Worksheets("Sheet1").Unprotect Password:=123456
    wsA.Range("A6").Clear ' new line for date and time
    wsA.Range("A6").Value = wsA.Range("G5").Value ' new line for date and time
    Range("A6").Select
        With Selection.Font
            .ThemeColor = xlThemeColorDark1
            .TintAndShade = 0
        End With
        If ActiveSheet.CheckBoxes.Count > 0 Then
            ActiveSheet.CheckBoxes.Visible = True
            ActiveSheet.CheckBoxes.Enabled = False
        End If
    Worksheets("Sheet1").Protect Password:=123456
    SaveLocation = myVlookupResult
    Select Case SaveLocation
    Case "MCT"
    StrPath = "MCT Gates"
    Case "BG"
    StrPath = "Secondary Screening Gates"
    End Select
    ActiveWorkbook.SaveAs 

      Filename:= StrPath & "/For Approval/" & strName & ".xlsm" _
    , FileFormat:=xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False
    Worksheets("Sheet1").Protect Password:=123456
    End Sub