Cleaning Sheets

[halem2]

Hi:

I have a macro that clears the content of different cells in a
worksheet and it works fine. The problem is that our workbooks some
times have over 50 worksheets and the macro has to be ran manually 50
times one per sheet.

is there a way to run it on all sheets but playing the macro only
once???

 

[JE McGimpsey]

No, but you can loop through the workbook:

Public Sub ClearContentsAllSheets()
Dim wsSheet As Worksheet
For Each wsSheet In ThisWorkbook.Worksheets
wsSheet.Cells.ClearContents
Next wsSheet
End Sub

 

[Guest]

hi,
this might work
Sub Test()
Dim ws As Worksheet
For Each ws In ActiveWorkbook.Worksheets
On Error Resume Next
call YourMacro
On Error GoTo 0
Next ws
End Sub

 

[Tom Ogilvy]

Sub Trigger()
for each sh in Activeworkbook.Worksheets
sh.Activate
myMacro
Next
End Sub

assume your current macro is named MyMacro. Edit the above code to reflect
the actual name of your macro.

 

[halem2]

thanks to every one. It works