This works except it doesnt stop once it has checked the sheet once. it just
continues checking...
Jason Morin wrote:
Sub HideGrey()
Dim cell As Range
Dim rngisect As Range
Set rngisect = Application.Intersect(ActiveSheet. _
UsedRange, Range("A:A"))
For Each cell In rngisect
If cell.Interior.ColorIndex = 15 Then 'Gray-25%
cell.EntireRow.Hidden = True
End If
Next
End Sub
---
HTH
Jason
Atlanta, GA
I did a search and came up with some things, but nothing quite like i want.
I want to have a macro linked to a button that when clicked will hide all
rows that have a gray background in column A of that row. And then i will
have another button that will unhide all those rows. Thanks,
--
Message posted via OfficeKB.com
http://www.officekb.com/Uwe/Forums.a...excel/200702/1