OPTIONORDER.GetExchangeCount() returns no exchanges

Hi @DDALY ,

Have you checked out the sample code in this sheet? Here, you're setting the order object with the symbol, type, date, etc for the option order, then retrieving the values.

Here, I return a value of 201 (on my test ID).

-Brian

Sub LoadDestList()

    Dim I As Integer
    Dim NamedRng As String
    Dim cnt As Variant
    Dim Dest As Variant
    Dim DestTemp As Variant
    Dim RetVal As Variant
    Dim RetVal2 As Variant
    Dim RNGSort As String
    Dim obj As Object
    Dim FindDest As String
    Dim COL As Long
    Dim RNGCut As String
    Dim MSG As String
    Dim exch As Variant
    Dim objRegExp As New RegExp
    Dim strPattern As String: strPattern = "[ ][A-Z]"
    Dim regEx As New RegExp
    Dim Myrange As Range
    Dim inputMatches As Object
    Dim Count As Integer: Count = 0
         
    Dim hOrder As New OPTIONORDER
     
    
    hOrder.symbol = UCase(Worksheets("REDIOptionOrderEntry").Cells(2, "C").Value)
    hOrder.Type = Worksheets("REDIOptionOrderEntry").Cells(3, "C").Value
    hOrder.Date = Worksheets("REDIOptionOrderEntry").Cells(4, "C").Value
    hOrder.Strike = Worksheets("REDIOptionOrderEntry").Cells(5, "C").Value
    RetVal = hOrder.GetExchangeCount(cnt)
   
    Worksheets("REDISettings").Range("D3:D1000").Clear
    Worksheets("REDISettings").Range("D3:D1000").Interior.Color = RGB(242, 242, 242)
    
    For I = 0 To cnt - 1
      exch = hOrder.GetExchangeAt(I)

      'Debug.Print exch & " " & I
      
      With regEx
        .Global = True
        .MultiLine = True
        .IgnoreCase = False
        .Pattern = strPattern
      End With
      
      If regEx.Test(exch) Then
        Set inputMatches = regEx.Execute(exch)
        
        'Debug.Print exch & " " & inputMatches.Count
        If inputMatches.Count = 1 Then
          Worksheets("REDISettings").Cells(Count + 3, "D").Interior.Color = RGB(255, 255, 255)
          Worksheets("REDISettings").Cells(Count + 3, "D").Borders.Color = RGB(234, 234, 234)
          Worksheets("REDISettings").Cells(Count + 3, "D").Value = exch
          Count = Count + 1
        End If
      End If

    Next I

    Worksheets("REDISettings").Range("D3:D" & Count + 2).Sort Key1:=Worksheets("REDISettings").Range("D3:D" & Count + 2), Order1:=xlAscending, Header:=xlGuess, _
        OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, DataOption1:=xlSortNormal
        
    NamedRng = "=REDISettings!R3C4:R" & Count + 2 & "C4"
    Names.Add Name:="Destinations", RefersToR1C1:=NamedRng
End Sub