Loop para remover formulas no Excel VBA

Excel 2010

Sub retirar()

Plan1.Range("E2:F31").Select

For Each x In Selection

    x.Value = x.Value

Next

MsgBox "OPERAÇÃO REALIZADA !"

End Sub