macro to Update Formulas on all Sheets (F9)

[howard]

I have written code to update my formulas instead of manually updating using F9
It is not updating all sheets, only the current sheet

Sub Refresh_Formula()
    Dim ws As Worksheet
    
    For Each ws In Worksheets
        ws.Calculate
    Next ws
End Sub

It would be appreciated if someone could correct my code

 

[Paul Ked]

Not sure if you have the sheet active to re-calculate, so try this:

Sub Refresh_Formula()
    Dim ws As Worksheet, ThisWs As Worksheet
    With Application
        .ScreenUpdating = False
        .EnableEvents = False
        Set ThisWs = ActiveSheet
        For Each ws In Worksheets
            ws.Activate
            ws.Calculate
        Next ws
        ThisWs.Activate
        .EnableEvents = True
    End With
End Sub

 

[howard]

Thanks for the help

 

[Paul Ked]

No worries