On Multiple Sheets Convert Formulas to Values

[KrisKiel]

Hi all, I'm trying to make a button click change all cell formulas on 5 different sheets to the cell values. The code I have below is perfect for the currently active sheet but I haven't had any success with specifying which sheets I want it to affect. Any help would be so greatly appreciated.


Sub button1_click_()
Dim answer As Integer
answer = MsgBox("Are you sure you want to finalize the results?", vbQuestion + vbYesNo, "THIS ACTION CANNOT BE UNDONE")

If answer = vbNo Then Exit Sub

Dim rng As Range
For Each rng In activesheet.UsedRange
If rng.HasFormula Then
rng.Formula = rng.Value
End If
Next rng

End Sub

 

[lrobbo314]

If it applies to all sheets in the workbook.

Sub button1_click_()
Dim ws As Worksheet
Dim rng As Range


If MsgBox("Are you sure you want to finalize the results?", vbQuestion + vbYesNo, "THIS ACTION CANNOT BE UNDONE") = vbNo Then Exit Sub


For Each ws In ActiveWorkbook.Worksheets
    Set rng = ws.UsedRange
    rng.Value = rng.Value
Next ws
End Sub

For specific sheets in workbook.

Sub button1_click_()
Dim ws As Worksheet
Dim rng As Range
Dim AR() As Variant: AR = Array("Sheet1", "Sheet2", "Sheet3")

If MsgBox("Are you sure you want to finalize the results?", vbQuestion + vbYesNo, "THIS ACTION CANNOT BE UNDONE") = vbNo Then Exit Sub

For i = LBound(AR) To UBound(AR)
    Set rng = Sheets(AR(i)).UsedRange
    rng.Value = rng.Value
Next i
End Sub

 

[KrisKiel]

Worked like a charm. Thank you!

 

[lrobbo314]

───────────────────░█▓▓▓█░▇▆▅▄▃▂
──────────────────░█▓▓▓▓▓█░▇▆▅▄▃▂
─────────────────░█▓▓▓▓▓█░▇▆▅▄▃▂
──────────░░░───░█▓▓▓▓▓▓█░▇▆▅▄▃▂ ...
─────────░███░──░█▓▓▓▓▓█░▇▆▅▄▃▂
───────░██░░░██░█▓▓▓▓▓█░▇▆▅▄▃▂
──────░█░░█░░░░██▓▓▓▓▓█░▇▆▅▄▃▂
────░██░░█░░░░░░█▓▓▓▓█░▇▆▅▄▃▂
───░█░░░█░░░░░░░██▓▓▓█░▇▆▅▄▃▂
──░█░░░░█░░░░░░░░█▓▓▓█░▇▆▅▄▃▂
──░█░░░░░█░░░░░░░░█▓▓▓█░▇▆▅▄▃▂
──░█░░█░░░█░░░░░░░░█▓▓█░▇▆▅▄▃▂
─░█░░░█░░░░██░░░░░░█▓▓█░▇▆▅▄▃▂
─░█░░░░█░░░░░██░░░█▓▓▓█░▇▆▅▄▃▂
─░█░█░░░█░░░░░░███▓▓▓▓█░▇▆▅▄▃▂
░█░░░█░░░██░░░░░█▓▓▓▓▓█░▇▆▅▄▃▂
░█░░░░█░░░░█████▓▓▓▓▓█░▇▆▅▄▃▂
░█░░░░░█░░░░░░░█▓▓▓▓▓█░▇▆▅▄▃▂
░█░█░░░░██░░░░█▓▓▓▓▓█░▇▆▅▄▃▂
─░█░█░░░░░████▓▓▓▓██░▇▆▅▄▃▂
─░█░░█░░░░░░░█▓▓██▓█░▇▆▅▄▃▂
──░█░░██░░░██▓▓█▓▓▓█░▇▆▅▄▃▂
───░██░░███▓▓██▓█▓▓█░▇▆▅▄▃▂
────░██▓▓▓███▓▓▓█▓▓▓█░▇▆▅▄▃▂
──────░█▓▓▓▓▓▓▓▓█▓▓▓█░▇▆▅▄▃▂
──────░█▓▓▓▓▓▓▓▓▓▓▓▓▓█░▇▆▅▄▃▂