Option Explicit
Public myArrayParaList As Variant
Public IsArrow As Boolean

Public Sub GetParaList()
Dim  sList As String, i As Long, sText As String,  myArrayParaList As Variant

  For i = 1 To ActiveDocument.Paragraphs.Count
  sText = Trim(Trim(ActiveDocument.Paragraphs(i).Range.Text))
    If Split(sText, vbCr)(0) <> "" Then
          sList = sList & i & ","
           myArrayParaList = Split(sList, ",")
    End If
  Next i
  
cmbParaNos.List = myArrayParaList
End Sub

Private Sub cmbParaNos_Change()

Dim i As Long
Dim oBkMrk As Bookmark
Dim wdActDoc As Document
Set wdActDoc = ActiveDocument

With cmbParaNos

If Not IsArrow Then .List = myArrayParaList
If .ListIndex = -1 And Val(Len(.Text)) Then
    For i = .ListCount - 1 To 0 Step -1
        'If InStr(1, .List(i), .Text, 1) = 0 Then .RemoveItem i
        If InStr(1, .List(i), Val(.Text), 1) = 0 Then .RemoveItem i
    Next i
   .DropDown
End If

End With

End Sub

Private Sub cmbParaNos_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)

IsArrow = KeyCode = vbKeyUp Or KeyCode = vbKeyDown
If KeyCode = vbKeyReturn Then cmbParaNos.List = myArrayParaList 
End Sub