Sub RemoveFormulasFromExcel()
Dim Xws As Worksheet
For Each Xws In Worksheets
Xws.UsedRange.Value = Xws.UsedRange.Value
Next
End Sub