Clear Sheets

[Cullen]

I need a button to clear everything from sheet 1,2, and 3. I tried:

Private Sub Clearbutton_Click()

Worksheets(Array("Sheet1", "Sheet2", "Sheet3")).Select
Selection.ClearContents

End Sub

Didn't work. Any suggestions? Thanks

 

[Diffy]

Umm how about:

Worksheets("Sheet1").Select
Cells.Select
Selection.ClearContents
Worksheets("Sheet2").Select
Cells.Select
Selection.ClearContents
Worksheets("Sheet3").Select
Cells.Select
Selection.ClearContents

 

[Jonmo1]

Try

For Each ws In Sheets(Array("Sheet1", "Sheet2", "Sheet3"))
ws.UsedRange.ClearContents
Next ws

 

[Colin Legg]

If you wanted to do it with the selection object then the code would be:

Private Sub Clearbutton_Click()
    Worksheets("Sheet1").Select
    Worksheets("Sheet1").Cells.Select
    Worksheets(Array("Sheet1", "Sheet2", "Sheet3")).Select
    Selection.ClearContents
End Sub

But I think I prefer a loop here:

Private Sub Clearbutton_Click()
    Dim wst As Worksheet
    
    For Each wst In Worksheets(Array("Sheet1", "Sheet2", "Sheet3"))
        wst.Cells.ClearContents
    Next wst
    
End Sub

 

[Cullen]

This one works great. Thanks!

For Each ws In Sheets(Array("Sheet1", "Sheet2", "Sheet3"))
ws.UsedRange.ClearContents
Next ws

Is there any way that it can be adjusted to strip the formatting/borders?

 

[Jonmo1]

change clearcontents to clear

 

[Cullen]

Works perfect. Thanks everyone