Add a control button by adding control command toolbox (View - Toolbars -
Command Toolbox). Add Command button to worksheet. Then double click button
and add code to the VBA window.

Private Sub CommandButton1_Click()
Sheets("Sheet1").Cells.ClearContents
Sheets("Sheet2").Cells.ClearContents
Sheets("Sheet3").Cells.ClearContents
End Sub

"Husain Nagri" wrote:

I have Data in Four Sheet for Data Enter Operator ,Data Operator Enters the
data in all these sheets of accounts for each year ,At the end of year Data
Operator Wants to Clear all the data at once ,so i need a Button to clear
all the data in all sheet at 1 time,Data Operator should not go to each
column n row to delete as data is very big.

So ls guide how to place a single button to clear all data in all sheet ??

Husain Nagri