Dear master

I am created a function to download the data from serveral website, th
function is running well if i am using the debug mode to run it line b
line, but once i using the marco to the full set, the program seem kee
loop within the refresh condition, seem refresh = 1 can no
return to me, i may guess that because i am keep looping until th
refresh = 1 return to system, can you help me to solve it, many thanks
:)

Sub GetWebData(strSheet, strURL, strWebTables)

Dim iRefresh As Integer
Dim cRows As Long
Dim i As Long

iRefresh = 0

cRows = Worksheets(strSheet).Cells(Rows.Count, "A").End(xlUp).Row

Set shFirstQtr = Worksheets(strSheet)

Set qtQtrResults = shFirstQtr.QueryTables _
.Add(Connection:="URL;" & strURL & "", _
Destination:=shFirstQtr.Cells(cRows + 1, 1))

With qtQtrResults
.WebFormatting = xlNone
.WebSelectionType = xlSpecifiedTables
.RefreshStyle = xlInsertDeleteCells
.WebTables = strWebTables
.Refresh

Do Until iRefresh = 1
If .Refreshing Then
iRefresh = 0
Else
iRefresh = 1
End If
Loop
End Wit

--
Louis LA
-----------------------------------------------------------------------
Louis LAI's Profile: http://www.excelforum.com/member.php...fo&userid=1562
View this thread: http://www.excelforum.com/showthread.php?threadid=27174