Convert Formulas to Values

Attribute VB_Name = "ConvertFormulasToValues"
Option Explicit

Public Sub ConvertFormulasToValues()
    Dim ws As Worksheet
    Set ws = ActiveSheet

    With ws.UsedRange
        .Value = .Value
    End With

    MsgBox "Formulas on '" & ws.Name & "' converted to static values.", vbInformation
End Sub