Select All Sheets and clear Interior Cell colours

  • Thread starter Thread starter ExcelMonkey
  • Start date Start date
E

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
 
For Each sh In ACtiveworkbook.Worksheets
sh.Cells.Interior.ColorIndex = xlNone
Next sh

--

HTH

RP
(remove nothere from the email address if mailing direct)
 
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
 
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
 
Back
Top