Почему активированная книга не остается активированной?

Question

Я новичок в VBA, поэтому, пожалуйста, будьте терпеливы. У меня есть две книги Excel. И с первого раза я хочу дважды щелкнуть по значению в выпадающих списках и активировать второй. Во-первых, я запускаю событие по двойному щелчку

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)

    OpenRouteMode Target

    Workbooks("IXPlanner.xlsm").Activate

End Sub

В OpenRouteMode я делаю это:

Private Sub OpenRouteMode(ByVal Target As Range)

    Dim WrkBk As Workbook

    Dim column As Integer, row As Integer

    column = Target.column
    row = Target.row

    'Workbook
    Set WrkBk = Workbooks("IXPlanner.xlsm")
    'Calling sub in sheet
    WrkBk.Worksheets("IXSheet").SetFromAndToCombo Cells(row, 3).value, Cells(row, 4).value

    Exit Sub
End Sub

В IXPlanner.xlsm я являюсь значениями настроек, такими как

Public Sub SetFromAndToCombo(ByVal fromDepotCode As String, ByVal toDepotCode As String)

    Dim fromDepot As Variant, toDepot As Variant

    Dim DataSheet As Worksheet
    Set DataSheet = ThisWorkbook.Sheets("Data")
    'Get value
    fromDepot = Application.VLookup(fromDepotCode, DataSheet.Range("P1:R100"), 3, 0)
    toDepot = Application.VLookup(toDepotCode, DataSheet.Range("P1:R100"), 3, 0)
    'Set value
    PreventComboboxChange = True
    ActiveSheet.FromSelector.value = fromDepot
    PreventComboboxChange = False
    ActiveSheet.ToSelector.value = toDepot

    Exit Sub
End Sub

Проблема в том, что когда я запускаю событие, IXPlanner активируется, устанавливает значения, а затем активируется исходная рабочая книга. Я хочу, чтобы IXPlanner оставался активным. Я не знаю почему, но он делает это даже с помощью комбинации клавиш.

Спасибо за ваши предложения.