Sub metrics_get()

'clear old data
    Range("C6:ZZ999").Delete


'get list of tickers
For tickers_get = 6 To Cells(6, 1).End(xlDown).Row

    tickerstring = tickerstring & "+" & Cells(tickers_get, 1)
Next tickers_get

tickerstring = Right(tickerstring, Len(tickerstring) - 1)
tickerstring = "http://download.finance.yahoo.com/d/qoutes.csv?.s=" & tickerstring & "&f=" & Cells(1, 2)

'import data to C6
queryquote:

    With ActiveSheet.QueryTables.Add(Connection:="URL;" & tickerstring, Destination:=Range("C6"))

        .BackgroundQuery = True
        .Refresh BackgroundQuery:=False

    End With

'delimited data
Range("C6").CurrentRegion.TextToColumns Destination:=Range("C6"), DataType:=xlDelimited, comma:=True

End Sub