Refresh All Sheets At Once That Contain Text

[Excel4444]

The below macro executes the refreshing correctly but takes a while because there are 40 sheets that contain "Rpt_*" and it loops 20 times.
Is there a way to refresh all these sheets at once ?

thanks in advance!

Sub rpt_sheets_recalc()


If Range("rpt_refresh").Value = 1 Then
Dim ws As Worksheet

For Each ws In ActiveWorkbook.Worksheets

If ws.name Like "Rpt_*" Then
ws.Calculate
Application.StatusBar = "Refreshing " & ws.name & "..."
Debug.Print ws.name
End If
Next ws
Application.StatusBar = False
Else
End If

End Sub

 

[Peter_SSs]

Cross-posting (posting the same question in more than one forum) is not against our rules, but the method of doing so is covered by #13 of the Forum Rules.

Be sure to follow & read the link at the end of the rule too!

Cross posted at: Refresh All Sheets At Once That Contain Text
If you have posted the question at more places, please provide links to those as well.

If you do cross-post in the future and also provide links, then there shouldn’t be a problem.

 

[Excel4444]

Cross-posting (posting the same question in more than one forum) is not against our rules, but the method of doing so is covered by #13 of the Forum Rules.

Be sure to follow & read the link at the end of the rule too!

Cross posted at: Refresh All Sheets At Once That Contain Text
If you have posted the question at more places, please provide links to those as well.

If you do cross-post in the future and also provide links, then there shouldn’t be a problem.

genuine mistake!

Refresh All Sheets At Once That Contain Text

The below macro executes the refreshing correctly but takes a while because there are 40 sheets that contain "Rpt_*" and it loops 20 times. Is there a way to refresh all these sheets at once ? Sub rpt_sheets_recalc() If Range("rpt_refresh").Value = 1 Then Dim ws As Worksheet

www.excelforum.com