How to run same code on all sheets

[DaveUK]

Please could somebody tell me how to programatically do the following.

The code i have is this

 Cells.ClearContents

Instead of selecting all worksheets in my workbook by name how do i go about selecting all worksheets in my workbook and running the above code en mass?

TIA

 

[SydneyGeek]

Hi Dave,

If you really want to clear out all cells, try this:

Sub ClearAllCells()
    Dim Sht As Worksheet
    
    For Each Sht In ActiveWorkbook.Sheets
        Sht.UsedRange.ClearContents
    Next Sht
        
End Sub

Denis