I made a few changes and the code now dumps everything
Sub OANDA()
URL = "
https://fx2.oanda.com/user/interestrate.html"
StartDate = "01/01/1970"
EndDate = "02/02/2010"
MyCurrency = "US DOLLAR"
'Do
' MyStartDate = InputBox("Enter Start Date : ")
'Loop While Not IsDate(Response)
'StartDate = DateValue(MyStartDate)
'Do
' MyEndDate = InputBox("Enter End Date : ")
'Loop While Not IsDate(Response)
'EndDate = DateValue(MyEndDate)
Set IE = CreateObject("InternetExplorer.Application")
IE.Visible = True
'get web page
IE.Navigate2 URL & Ticker
Do While IE.readyState <> 4 Or _
IE.Busy = True
DoEvents
Loop
Set FormInput = IE.document.getElementsByTagName("input")
FormInput(0).Value = Format(StartDate, "MM/DD/YYYY")
FormInput(1).Value = Format(EndDate, "MM/DD/YYYY")
Set ListBox = IE.document.getElementsByTagName("select")
Set AllCurrencies = ListBox(3).getElementsByTagName("option")
Set ListboxItem = Nothing
For Each itm In ListBox(3)
itm.Selected = True
'If UCase(itm.innertext) = MyCurrency Then
'Set ListboxItem = itm
'Exit For
'End If
Next itm
'If ListboxItem Is Nothing Then
'MsgBox ("could Not find currency - exiting Macro ")
'Exit Sub
'End If
'ListboxItem.Selected = True
'submit form
FormInput(2).Select
FormInput(2).Click
Do While IE.readyState <> 4 Or _
IE.Busy = True
DoEvents
Loop
Set Mon_Sel = IE.document.getElementById("mon_sel")
Set Table = IE.document.getElementsByTagName("Table")
RowCount = 1
For Each Row In Table(2).Rows
ColCount = 1
For Each cell In Row.Cells
Cells(RowCount, ColCount) = cell.innertext
ColCount = ColCount + 1
Next cell
RowCount = RowCount + 1
Next Row
IE.Quit
End Su