Public Sub GetHistoricalStockPrices(ByValStockSymbol As String)

ThisWorkbook.Sheets("Web Query").QueryTables("Stock Prices").Connection = "URL;http://finance.yahoo.com/q/hp?s=" & StockSymbol

ThisWorkbook.Sheets("Web Query").QueryTables("Stock Prices").Refresh

End Sub