XML import stopped working

[hariimmadi]

Hi,
I've following code that works for quite a bit of time, but all in sudden it stopped working lately.
I couldn't able to trace why it is not working. Could someone help me what the issue with this code...

sub get_Yahoo_News_using_RSS()
Set Y_N = Sheets("Y_N")
URL = "http://finance.yahoo.com/rss/headline?s=LDR"
Y_N.Select
On Error Resume Next
Y_N.UsedRange.Clear
With ActiveWorkbook.XmlMaps("rss")
.ShowImportExportValidationErrors = False
.AdjustColumnWidth = False
.PreserveColumnFilter = False
.PreserveNumberFormatting = True
.AppendOnImport = False
End With
ActiveWorkbook.XmlImport URL:=URL, ImportMap:= _
Nothing, Overwrite:=True, Destination:=Range(Y_N.Cells(1, 1), Y_N.Cells(1, 1))

end sub

greatly appreciate any help
-Hari