Hi Danny,
Implement the following code by right clicking the sheet tab and selecting view code:
Private Sub Worksheet_Change(ByVal Target As Range)
If Range("A2") = "X" Then
Rows("3:39").EntireRow.Hidden = True
Rows("42:77").EntireRow.Hidden = False
End If
If Range("A2") = "Rose" Then
Rows("42:77").EntireRow.Hidden = True
Rows("3:39").EntireRow.Hidden = False
End If
If Range("A2") = "" Then
Rows("42:77").EntireRow.Hidden = False
Rows("3:39").EntireRow.Hidden = False
End If
End Sub
To display all rows again, delete the content of cell A2.
The code will be activated whenever a change to the sheet is made.
Does this suit your needs?
Best regards,
Trowa