If and go to

Thank you for your code.
In J1, put ^dji
at .Name = _
compile error:
Invalid or unqualified reference

If Range("H1").Value = "" Then

With Worksheets("Sheet1").QueryTables.Add(Connection:= _
"URL;http://ichart.finance.yahoo.com/table.csv?s=" & _
Worksheets("Sheet1").Range("J1").Value & "&a=10&b=13&c=2011&d=06&e=6&f=2013&g=w&ignore=.xlsx" _
, Destination:=Worksheets("Sheet1").Range("$A$1"))
else



With Worksheets("Sheet1").QueryTables.Add(Connection:= _
"URL;http://ichart.finance.yahoo.com/table.csv?s=" & _
Worksheets("Sheet1").Range("J1").Value & "&a=10&b=13&c=2011&d=06&e=6&f=2013&g=m&ignore=.xlsx" _
, Destination:=Worksheets("Sheet1").Range("$A$1"))
End If[/code][/QUOTE]