If it is just this one querytable, then you cannot, because as Tom pointed
out, the refresh is a single action and you get no feed back.

NickHK

wrote in message
ups.com...
I have for example the following part of code:

With ActiveSheet.QueryTables.Add(Connection:="URL;http://

http://www.amazon.com/s/ref=nb_ss_gw...lias%3Daps&fie
ld-keywords="
& chiave & "&Go.x=10&Go.y=11", Destination:=Range("A1"))
.Name = "?"
.FieldNames = True
.RowNumbers = False
.FillAdjacentFormulas = False
.PreserveFormatting = True
.RefreshOnFileOpen = False
.BackgroundQuery = True
.RefreshStyle = xlOverwriteCells
.SavePassword = False
.SaveData = True
.AdjustColumnWidth = True
.RefreshPeriod = 0
.WebSelectionType = xlEntirePage
.WebFormatting = xlNone
.WebPreFormattedTextToColumns = True
.WebConsecutiveDelimitersAsOne = True
.WebSingleBlockTextImport = False
.WebDisableDateRecognition = False
.Refresh BackgroundQuery:=False
End With

so NickHK where can i fill your code to progress query time working???

thanks a lot