Getting stock quotes into my spreadsheet

I have a spreadsheet with stock symbols in column a and would like to automatically get the current prices in column b. I do have the stock connector task pane, and tried recording a macro that would copy the symbols from column a1 and paste into the box in the task pane, then return the result into b1.  All it did was the copy.  

If using the task pane isn't going to work, perhaps a macro that would reference yahoo.finance perhaps.

I did find a macro from the web, but I'm having a problem with it.  It probably just needs a minor tweak, but I'm not a macro expert.  Here it is, if you'd like to take a look....

Sub Macro1()

'

' Macro1 Macro

'

'

Dim W As Worksheet: Set W = ActiveSheet

Dim last As Integer: last = W.Range("A1000").End(xlUp).Row

If last = 1 Then Exit Sub

Dim symbols As String

Dim i As Integer

For i = 2 To last

 symbols = symbols & W.Range("A" & i).Value & "+"

Next i

 symbols = Left(symbols, Len(symbols) - 1)

Dim Url As String: Url = "http://finance.yahoo.com/d/quotes.csv?s=" & symbols & "&f=snl1hg"

Dim Http As New WinHttpRequest

Http.Open "Get", Url, False

Http.Send

Dim Resp As String: Resp = Http.ResponseText

Dim Lines As Variant: Lines = Split(Resp, vbNewLine)

Dim sLine As String

Dim Values As Variant

For i = 0 To UBound(Lines)   

  sLine = Lines(i)

  If InStr(sLine, ",") > 0 Then

    Values = Split(sLine, ",")

    W.Cells(i + 2, 2).Value = Split(Split(sLine, Chr(34) & "," & Chr(34))(1), Chr(34))(0)

    W.Cells(i + 2, 3).Value = Values(UBound(Values) - 2)

    W.Cells(i + 2, 4).Value = Values(UBound(Values) - 1)

    W.Cells(i + 2, 5).Value = Values(UBound(Values))

  End If

Next i

W.Cells.Columns.AutoFit

End Sub