Macro to run formulas and convert them to values

[newshound12]

=HH31+HH32+HH35+HH36

=HH40+HH41+HH44+HH45

=HH49+HH50+HH53+HH54

=HH58+HH59+HH62+HH63

=HH67+HH68+HH71+HH72

=HH76+HH77+HH80+HH81

These formulas start in DQ32 and end in DQ923.
Each are 9 rows apart.
Need a macro to run these formulas and convert them to values

 

[Michael M]

Try

Sub MM1()
Dim r As Long
Application.ScreenUpdating = False
For r = 32 To 923 Step 9
    With Range("DQ" & r)
        .Formula = "=HH" & r - 1 & "+HH" & r & "+HH" & r + 3 & "+HH" & r + 4 & ""
        .Value = .Value
    End With
Next r
Application.ScreenUpdating = True
End Sub

 

[newshound12]

Thanks. Works perfectly

 

[Michael M]

Glad to help and thx for the feedback...