jUStPunkin
Board Regular
- Joined
- Mar 23, 2009
- Messages
- 67
I'm a relative newbie at VBA, but I have a question about some code I've written. I've actually copied and modified this from another routine I've written (which works), but for some reason, I can't get this to work.
I have a cell where you choose one of four options (straight, tee, H or other), and based on your selection, certain rows should be hidden. It's not working though. Can anybody see what I've done wrong?
I have a cell where you choose one of four options (straight, tee, H or other), and based on your selection, certain rows should be hidden. It's not working though. Can anybody see what I've done wrong?
Code:
Private Sub Worksheet_Change(ByVal Target As Range)
Select Case Worksheets("Nozzle").Range("$H$10")
Case Is = "Straight"
Worksheets("Nozzle").Range("$A$28:$D$31").EntireRow.Hidden = True
Worksheets("Nozzle").Range("$A$25:$D$31").EntireRow.Hidden = False
Case Is = "Tee"
Worksheets("Nozzle").Range("$A$30:$D$31").EntireRow.Hidden = True
Worksheets("Nozzle").Range("$A$25:$D$31").EntireRow.Hidden = False
Case Is = "H"
Worksheets("Nozzle").Range("$A$25:$D$31").EntireRow.Hidden = False
Worksheets("Nozzle").Range("$A$25:$D$31").EntireRow.Hidden = False
Case Is = "Other"
Worksheets("Nozzle").Range("$A$25:$D$31").EntireRow.Hidden = False
Worksheets("Nozzle").Range("$A$25:$D$31").EntireRow.Hidden = False
Case Else
Worksheets("Nozzle").Range("$A$25:$D$31").EntireRow.Hidden = False
Worksheets("Nozzle").Range("$A$25:$D$31").EntireRow.Hidden = False
End Select
End Sub