Hello,

I have the bellow code but it does not work.

Do you have any idea why ?

If oRtHist Is Nothing Then Set oRtHist = CreateReutersObject("AdfinXRtLib.AdxRtHistory")
    
     With oRtHist
        .FlushData
        .ErrorMode = EXCEPTION
        .Source = "IDN"
        .itemName = "USONFFE0D=RR"
        .Mode = "START:" & Format(sttDt, "ddmmmyy") & _
            " END:" & Format(endDt, "ddmmmyy") & _
            " SORT:DES" & _
            " ZERO:SKIP" & _
            " NULL:SKIP" & _
            " FRQ:D"
        .RequestHistory "NDA_RAW.Nda_date;NDA_RAW.Nda_latest_trade_yield"
    End With

The formula in Excel is the following:

=RHistory("USONFFE0D=RR","NDA_RAW.Nda_date;NDA_RAW.Nda_latest_trade_yield","INTERVAL:1D",,"CH:IN;Fd",M19)

Thanks a lot,

Hamza