Private Sub CommandButton1_Click()
Dim shcount As Integer
shcount = Worksheets.Count
For i = 1 To Sheets.Count
Sheets(i).Select
ActiveSheet.Cells.Clear
Next
End Sub
Private Sub CommandButton1_Click()
Dim sh As Worksheet
For Each sh In ThisWorkbook.Sheets
sh.Activate
ActiveSheet.Cells.Clear
Next
End Sub