Sub RefreshAllWebQueries() Dim QT As QueryTable For Each QT In ActiveSheet.QueryTables Application.StatusBar = "Refreshing " & QT.Connection QT.Refresh Next QT Application.StatusBar = False End Sub