VBA - Script for converting formulas in an Excel workbook to values across all worksheets

Sub ConvertFormulasToValuesAllWorksheets()

    Dim ws As Worksheet, rng As Range
    For Each ws In ActiveWorkbook.Worksheets
    For Each rng In ws.UsedRange
        If rng.HasFormula Then
        rng.Formula = rng.Value
    End If
        Next rng
        Next ws

End Sub