Lösche Formeln in Excel für ein Tabellenblatt:

Sub Lösche_Formeln()
    With ActiveSheet.UsedRange
       .Value = .Value
    End With
End Sub

Lösche Formeln in Excel für jedes Tabellenblatt:

Sub Lösche_Formeln()
    Dim ws As Worksheet

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