Try using ' DoEvents ' immediately after ' Do Until iRefresh = 1'

Sharad

"Louis LAI" wrote in message
...

Dear master

I am created a function to download the data from serveral website, the
function is running well if i am using the debug mode to run it line by
line, but once i using the marco to the full set, the program seem keep
loop within the refresh condition, seem refresh = 1 can not
return to me, i may guess that because i am keep looping until the
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 With


--
Louis LAI
------------------------------------------------------------------------
Louis LAI's Profile:
http://www.excelforum.com/member.php...o&userid=15629
View this thread: http://www.excelforum.com/showthread...hreadid=271745