Maybe something like this:

Sub Refr()
Dim QT As QueryTable
For Each QT In ActiveSheet.QueryTables
QT.Refresh
Next QT
End Sub

Hope this helps
Rowan

"Jean Simon" wrote:

Hi,

In excel, there is a nice feture that allow to insert table from different
web pages. Is there a way to update at once all tables coming from web sites
without using data menu then refresh data for each table ? I have an excel
sheet that links 50 tables....

Thanks and regards
Jean Simon