Clear All data from excel worksheets

[VBAmalta89]

I need to create a button on a worksheet which will cause excel to clear all the data inputted in a number of cells in different worksheets. However, it is important that the formulae remain in their respective cells and only the value is deleted.

How can I achieve this?

 

[SteveO59L]

Assuming your data entry cells are a1, b1 & c1

Range("a1,b1,c1").ClearContents

 

[VBAmalta89]

and can i create some form of warning message for the user so that the data isnt lost accidentally?

 

[SteveO59L]

Mainly from the help file

Dim Msg, Style, Title, Help, Ctxt, Response, MyString
Msg = "This Action will clear all data, Do you want to continue ?" ' Define message.
Style = vbYesNo + vbCritical + vbDefaultButton2 ' Define buttons.
Title = "MsgBox Demonstration" ' Define title.
Help = "DEMO.HLP" ' Define Help file.
Ctxt = 1000 ' Define topic
' context.
' Display message.
Response = MsgBox(Msg, Style, Title, Help, Ctxt)
If Response = vbYes Then ' User chose Yes.
Range("a1,b1,c1").ClearContents

Else ' User chose No.
End
End If