You can try something like this

Public Sub ClearData()
On Error Goto ErrorHandler:
Application.Calculation = xlManual
With Sheets("Sheet1")
.Range("A1").ClearContents
.Range("B2").ClearContents
.Range("C3").ClearContents
.Range("D4").ClearContents
End With
ErrorHandler:
Application.Calculation = xlAutomatic
End Sub

Place this in a module and add a button from the forms toolbar. Select this
macro when propted to do so and...
--
HTH...

Jim Thomlinson


"sofodile" wrote:

i created a field in which you can enter values in different spaces and it
will calculate, these number accordingly.... how do i create a button to
clear the values inputed, so that the "calculator" can be used again