Try this

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$B$5" Then
If Target = "X" Then
Range("B9:B15").EntireRow.Hidden = True
Else
Range("B9:B15").EntireRow.Hidden = False
End If
End If
End Sub



On 18 Sep, 12:40, newguy wrote:
I am trying to get this code to work where if a user enters an X in a
range of cells a corresponding group of rows is hidden further down in
the worksheet and I don't know what I am doing wrong.

Private Sub Worksheet_Change(ByVal Target As Range)
*If Range("B5") = "X" Then
* * Range("B9:B15").EntireRow.Hidden = True
* *Else
* * Range("B9:B15").EntireRow.Hidden = False
*End If

End Sub