View Single Post
  #7   Report Post  
Sylve Sylve is offline
Junior Member
 
Posts: 4
Default

Quote:
Originally Posted by Gord Dibben View Post
For any one color............

EditFindFormatFormat....choose a color and OK find all.

CTRL + a to select all "found" items.

On menu bar FormatRowHide

If you have many colors to do you may want to use VBA instead.

Sub hide()
Dim rng1 As Range
Set rng1 = Range(Cells(, 1), Cells(Rows.Count, _
Cells(, 1).Column).End(xlUp))
For Each cell In rng1
If cell.Interior.ColorIndex < xlNone Then
cell.EntireRow.Hidden = True
End If
Next
End Sub


Gord Dibben MS Excel MVP


Thank you God... I mean thank you Gord
The VBA code works like a charm !
I'm really greatful to Mr. Dibben. Thanks again