Hide Rows If Cell Value = False

T

TOMB

Windows 2000; Excel 2000

I am using several checkbox controls (format control and
cell link) to toggle a cell's value between 'True'
and 'False'.

I would like to hide or unhide rows based on these cells.

Any suggestions besides using AutoFilter?

Thanks in advance.
 
F

Frank Kabel

Hi
try something like the following:
Sub hide_rows()
Dim RowNdx As Long
Dim LastRow As Long

LastRow = ActiveSheet.Cells(Rows.Count, "A").End(xlUp).row
For RowNdx = LastRow To 1 Step -1
If Cells(RowNdx, "A").Value = False Then
Rows(RowNdx).hidden = True
End If
Next RowNdx
End Sub

hides all 'False' rows in column A
 
T

TOMB

Frank, thanks for the help. You got me 90% there! I just
had to add a few lines and change the column reference.
You made it easy for me!

- - TB - -
 
Top