I would probably do it something like this:

Private Sub Worksheet_change(ByVal Target As Range)
If Target.Address < Range("a1").Address Then Exit Sub
Rows.Hidden = False
Select Case Target
Case Is = 100: x = "3:5"
Case Is = 200: x = "3:6"
Case Else
End Select
Rows(x).Hidden = True
End Sub


--
Don Guillett
Microsoft MVP Excel
SalesAid Software

"Tami" wrote in message
...
Don, it's not working but am i close?...
sincerely,
the fisherman

Sub HideRows()
Dim cell As Range
For Each cell In Range("b2:a100")
If cell.Value = "$a$1" Then
cell.EntireRow.Hidden = False
Else
cell.EntireRow.Hidden = True
End If
Next
End Sub


"Don Guillett" wrote:


Assuming you want to do this yourself, you certainly should be able to
figure out how to substitute rows for columns and then test to see how it
works. That's how you learn by thinking and applying your thoughts. You
eat
better when you learn to fish instead of just having fish thrown at you.

--
Don Guillett
Microsoft MVP Excel
SalesAid Software

"Tami" wrote in message
...
Hi Don.
I had reviewed all my posts and I felt that this was a different
scenario.
The past posts have taught me how to hide and unhide specific columns
based
on a value in one cell...like unhide columns A:H or hide B:C so i feel
totally good about that code. But this latest reques is hiding rows
based
on
values in a column that runs down the left. I searched other posts to
see
if
there was a similar request but couldn't find a "match" but maybe i
didn't
use good "search for" words.

"Don Guillett" wrote:

Tami,
You have had several answers to this basic question. Why are you
posting
again.

--
Don Guillett
Microsoft MVP Excel
SalesAid Software

"Tami" wrote in message
...
hi.
I need help writing a macro that will hide and unhide rows based on
the
value in Cell A1. In the below example, If Cell A1=100, rows 3 and
4
would
be hidden and rows 1,2 and 5 would be unhidden. If cell A1=200 then
only
row
3 would be shown. Thanks in advance for your help, Tami

Column B
Row 1 100
Row 2 100
Row 3 200
Row 4 300
Row 5 100