what is "links option box" and "links box pops"?
Workbooks("Book1").Connections.AddFromFile _
"C:\Program Files\Microsoft Office\Office14\QUERIES\MSN MoneyCentral Investor Currency Rates.iqy"
With ActiveWorkbook.Connections("MSN MoneyCentral Investor Currency Rates")
.Name = "MSN MoneyCentral Investor Currency Rates"
.Description = ""
End With
ActiveWorkbook.Connections("MSN MoneyCentral Investor Currency Rates").Refresh
Application.Dialogs(xlDialogUpdateLink).Show