Select All Sheets and clear Interior Cell colours

[ExcelMonkey]

How do you select all sheets in VBA to clear interior
colours. When I record it looks like this. However I
want to avoid using sheet names like this.


Sheets(Array
("Sheet1", "Sheet2", "Sheet3", "Sheet4", "Sheet5","Sheet6"
, "Sheet7", "Sheet8", "Sheet9")). Select
Sheets("Audit Results").Activate
Cells.Select
Selection.Interior.ColorIndex = xlNone

 

[Bob Phillips]

For Each sh In ACtiveworkbook.Worksheets
sh.Cells.Interior.ColorIndex = xlNone
Next sh

--

HTH

RP
(remove nothere from the email address if mailing direct)

 

[Jim Thomlinson]

You can not just select all of the worksheets, but you can traverse through
the collection of worksheets...

dim wks as worksheet

for each wks in worksheets
wks.cells.Interior.ColorIndex = xlNone
next wks

HTH

 

[Gord Dibben]

Sub clear_color()
Application.ScreenUpdating = False
Dim n As Single
For n = 1 To Sheets.Count
Sheets(n).Cells.Interior.ColorIndex = xlNone
Next n
Application.ScreenUpdating = True
End Sub


Gord Dibben Excel MVP