As a side, I found the below code at
VBA Macros Provide Yahoo Stock Quote Downloads in Excel 2007 - CodeProject
I know this doesn't provide exactly what I want but I was hoping to get it working and then worry about making the adjustments
' for all sequential symbols in A2 and on down.
'
' manageCalcStatus = TRUE if we should turn Autocalc off then restore, or FALSE if caller does it
'
Sub UpdatePriceData(Optional manageCalcStatus As Boolean = True)
Dim stockXml As MSXML2.IXMLDOMNode
Dim stockData(5) As Double ' Open, High, Low, Volume
Dim stockDate As Date ' Last Trade Date
Dim stockTime As Date ' Last Trade time
sbState = Application.DisplayStatusBar ' save current state
Application.DisplayStatusBar = True ' take over status bar
Application.StatusBar = "Preparing quote request..."
If manageCalcStatus Then
appCalcStatus = Application.Calculation
Application.Calculation = xlCalculationManual
End If
' Activate the sheet and get to the last row
Sheets("Price Data").Select
Range("A2").Select
Selection.End(xlDown).Select
' Capture the row number, then start the loop
iRowLast = ActiveCell.Row
For i = 2 To iRowLast
' For each stock row, get the XML data for the stock and write it to the row
Range("A" & i).Select
Application.StatusBar = "Get quote for: " & ActiveCell.Value
Set stockXml = GetQuoteXmlFromWeb(ActiveCell.Value)
' test for Nothing
If stockXml Is Nothing Then
' Could not find it -- all 0's and set date to today
For n = 0 To UBound(stockData) - 1
stockData

= 0
Next n
stockDate = Date
stockTime = 0
Else
' Got the data... get each piece
stockData(0) = Val(GetQuoteFromXml(stockXml, "Open"))
stockData(1) = Val(GetQuoteFromXml(stockXml, "DaysHigh"))
stockData(2) = Val(GetQuoteFromXml(stockXml, "DaysLow"))
stockData(3) = Val(GetQuoteFromXml(stockXml, "LastTradePriceOnly"))
stockData(4) = Val(GetQuoteFromXml(stockXml, "Volume"))
stockDate = CDate(GetQuoteFromXml(stockXml, "LastTradeDate"))
stockTime = TimeValue(GetQuoteFromXml(stockXml, "LastTradeTime"))
' Resets status bar text if GetQUoteFromXml was tweaking it
Application.StatusBar = "Get quote for: " & ActiveCell.Value
End If
' Now assign values out to cells the current row (B to F, then G)
For n = 0 To UBound(stockData) - 1
Range(Chr(Asc("B") + n) & i).Value = stockData

Next n
Range(Chr(Asc("B") + UBound(stockData)) & i).Value = stockDate
Range(Chr(Asc("B") + 1 + UBound(stockData)) & i).Value = stockTime
Next i
If manageCalcStatus Then
Application.StatusBar = "Resetting calculation state..."
Application.Calculation = appCalcStatus ' restore calculation mode too
End If
Application.StatusBar = False ' this RESTORES default text to the status bar... honest!
Application.DisplayStatusBar = sbState ' return control to origina state
End Sub