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

        If Target.Cells.Count > 1 Then Exit Sub
         If Not Application.Intersect(Range("i1:i10000"), Target) Is Nothing Then
             UserForm1.Show
             Cancel = True
             
       End If
      
       If Target.Cells.Count > 1 Then Exit Sub
         If Not Application.Intersect(Range("j2:j10000"), Target) Is Nothing Then
             UserForm1.Show
             Cancel = True
         End If
      
   End Sub

в UserForm находиться ListBox со списком, значения из которого по щелчку вставляются в активную ячейку:

Private Sub ListBox1_Click()

ActiveCell.FormulaR1C1 = ListBox1.Text

Unload Me
End Sub

Стартовая позиция UserForm при открытии - центр экрана (1-CenterOwner)

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

Private Sub ComboBox1_Change()

' выбранная дата отображается в формате "январь 2018"
   If Me.ComboBox1.Value <> "" Then
      Me.ComboBox1.Value = Format(Me.ComboBox1, "MMMM/YYYY")
   End If

End Sub

стрелками всегда выбирается только первое значение.

Если список в ComboBox формируется через RowSource или в другом месте, при этом в Private Sub ComboBox1_Change() ничего не прописано, то все в порядке, стрелками можно выбрать значение.

Подскажите, что нужно сделать, чтобы в первом случае стрелками также можно было выбирать значения?