Refresh some not Refresh All

  • Thread starter Thread starter PBISMaryland
  • Start date Start date
P

PBISMaryland

Hello. I have a workbook with 10 sheets all of which have external data that
needs to be refreshed periodically. Most of the time I only need to refresh
8 of the sheets. Is there a way to refresh just those 8 without having to
refresh each one separately?
Thanks in advance.
 
You can use a macro to do it. It would go something like this...

Sub RefreshSome()
Dim wks As Worksheet
Dim qt As QueryTable

For Each wks In Worksheets
Select Case wks.Name
Case "Sheet1", "sheet2"
Case Else
For Each qt In wks.QueryTables
qt.Refresh
Next qt
End Select
Next wks

End Sub

the above will refresh all querytables in all sheets excpet for sheet1 and
sheet2
 
Back
Top