WarEagle,
For end of day quotes on the majors, just plop this in an Excel module and run the macro. Quotes will be retrieved fom Global-view.com. I got it from one of the Excel wizards at MrExcel. Reliable quotes and totally free.
Sub GetWebData()
Application.ScreenUpdating = False
ActiveWorkbook.Worksheets.Add
With ActiveSheet.QueryTables.Add(Connection:= _
"URL;http://global-view.com/fxhist.TXT", Destination:=Range("A1"))
.Name = "fxhist"
.FieldNames = True
.RefreshStyle = xlOverwriteCells
.SavePassword = False
.SaveData = True
.Refresh BackgroundQuery:=False
End With
Range("A1", Cells.Find(What:="History", After:=ActiveCell, LookIn:=xlFormulas, _
LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:=False).Offset(-1)).EntireRow.Delete
Range("A:A").TextToColumns Range("A1"), xlDelimited, Space:=True, ConsecutiveDelimiter:=True
Cells.EntireColumn.AutoFit
On Error Resume Next
Range("A:A").SpecialCells(xlCellTypeBlanks).Delete xlShiftToLeft
Application.ScreenUpdating = True
End Sub