Well, it is Sunday (where I'm sitting!)

Gord Dibben wrote:

Thanks for the feedback.

More religious references<g

That's for Dave

Gord

On Sun, 8 Mar 2009 10:15:32 +0000, Sylve
wrote:


Gord Dibben;806747 Wrote:
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

--

Dave Peterson