vba清除excel内公式

Sub excel去除所有公式()
    Dim sheet As Worksheet
    For Each sheet In Sheets
        sheet.UsedRange = sheet.UsedRange.Value
    Next
End Sub